将同目录下excel工作薄中多个表导入access同一表中.docx

将同目录下excel I作薄中多个表导入access同一表屮，excel表结构必须相同，工作薄 名称：示例工作薄.xls,导入后access表名称导入后 Private Sub CommandO_Click() On Error Resume Next Dim exapp As New Excel.Application Dim exBook As Excel.Workbook Dim exSheet As Excel.Worksheet Dim strName As String Set exBook = exapp.Workbooks.Open(CurrentProject.Path ”\示例工作薄. xIs”) For i = 1 To exBook.Sheets.Count DoCmd.TransferSpreadsheet aclmport,, ”导入后J CurrentProject.Path _ ”\示例工作薄.xlsA True, exBook.Worksheets(i).Name ! Next exBook.Close Set exBook = Nothing exapp.Quit End Sub 将同目录下excel工作薄中多个表导入access中，生成不同access表 Private Sub Commandl_Click() On Error Resume Next Dim exapp As New Excel.Application Dim exBook As Excel.Workbook Dim exSheet As Excel.Worksheet Dim strName As String Set exBook = exapp.Workbooks.Open(CurrentProject.Path ”\示例工作薄. xlsH) For i = 1 To exBook.Sheets.Count DoCmd.TransferSpreadsheet aclmport, z exBook.Worksheets(i).Nam ez CurrentProject.Path ”\示例工作薄?xls”，True, exBook.Worksheets(i).Name ! Next exBook.Close Set exBook = Nothing exapp.Quit End Sub 现存问题：运行后，提示打开excel表编辑，不能保证excel关闭。 下面是对EXECL的基础操作说明： Set xIApp = CreateObject(uExcel.Application) 激活EXCEL应用程序 xIApp.Visible = False 隐藏 EXCEL 应用程序窗口 Set xlBook = xlApp.Workbooks.Open(strDestination) 打开工作簿，strDestination为一个EXCEL报表文件 Set xISheet = xlBook.Worksheets(1) 设定工作表 1、 定义EXCEL对象变量 dim x as excel.application 2、 VB 中，启动 EXCEL set x=createobject(nexcel.applicatio n”) 3、 新建一个EXCEL T作簿 x.workbooks.add 4、 选定工作表1 set xsheet=xbook.worksheets(1) 5、 指定单元格，并赋值 xsheet.cell(1,1)=ret.fields(O) 6、 指定EXCEL列宽 xsheet.colum n(1 ).colum nwidth=10 7、 RANGE ()函数，选定单元格区域 range(cells(1,1 ),cells(10,20)) 8、 设置EXCEL字体 xsheet.range(cells(1,1 ),cells(10,20)).=H 黑体” 9、 设置EXCEL为粗体 xsheet.range(cells(1,1 ),cells(10,20)).fontbold=true 10、 设置EXCEL表格边框 xsheet.ra nge(cells(1,1 ),cells(10,20)).borders」in estyle=xlc ontinu ous 11、 运行时，显示EXCEL或隐藏EXCEL x.visible=true 12、 保存工作簿 xbook save 13、 退出 EXCEL x.quit 14、 交还控制权给EXCEL set x=nothing 15、 打印EXCEL表 x.active.wi ndow.selectedsheets.pri ntout copies