2024年6月21日发(作者：)
将同目录下excel工作薄中多个表导入access同一表中，excel表结构必须相同，工作薄
名称：示例工作薄.xls，导入后access表名称"导入后"
Private Sub Command0_Click()
On Error Resume Next
Dim exapp As New ation
Dim exBook As ok
Dim exSheet As eet
Dim strName As String
Set exBook = ( & "示例工作薄.
xls")
For i = 1 To
erSpreadsheet acImport, , "导入后",
& _
"示例工作薄.xls", True, eets(i).Name & "!"
Next
Set exBook = Nothing
End Sub
'将同目录下excel工作薄中多个表导入access中，生成不同access表
Private Sub Command1_Click()
On Error Resume Next
Dim exapp As New ation
Dim exBook As ok
Dim exSheet As eet
Dim strName As String
Set exBook = ( & "示例工作薄.
xls")
For i = 1 To
erSpreadsheet acImport, , eets(i).Nam
e, & _
"示例工作薄.xls", True, eets(i).Name & "!"
Next
Set exBook = Nothing
End Sub
现存问题：运行后，提示打开excel表编辑，不能保证excel关闭。
下面是对EXECL的基础操作说明：
Set xlApp = CreateObject("ation")
‘激活EXCEL应用程序
e = False ‘隐藏EXCEL应用程序窗口
Set xlBook = (strDestination)
‘打开工作簿，strDestination为一个EXCEL报表文件
Set xlSheet = eets(1)
‘设定工作表
1、定义EXCEL对象变量
dim x as ation
2、VB中，启动EXCEL
set x=createobject("ation")
3、新建一个EXCEL工作簿
4、选定工作表1
set xsheet=eets(1)
5、指定单元格，并赋值
(1,1)=(0)
6、指定EXCEL列宽
(1).columnwidth=10
7、RANGE（）函数，选定单元格区域
range(cells(1,1),cells(10,20))
8、设置EXCEL字体
(cells(1,1),cells(10,20)).="黑体"
9、设置EXCEL为粗体
(cells(1,1),cells(10,20)).fontbold=true
10、设置EXCEL表格边框
发布者：admin，转转请注明出处：http://www.yc00.com/web/1718940285a2753718.html
评论列表（0条）