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

将同目录下excel工作薄中多个表导入access同一表中，excel表结构必须相同，工作薄名称：示例工作薄.xls，导入后access表名称导入后Private Sub Command0_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 \示例工作薄.xls)??? For i = 1 To exBook.Sheets.Count??????? DoCmd.TransferSpreadsheet acImport, , 导入后, CurrentProject.Path _??????????? \示例工作薄.xls, True, exBook.Worksheets(i).Name ! ??? Next??? exBook.Close??? Set exBook = Nothing??? exapp.Quit End Sub将同目录下excel工作薄中多个表导入access中，生成不同access表Private Sub Command1_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 \示例工作薄.xls)??? For i = 1 To exBook.Sheets.Count?????????? DoCmd.TransferSpreadsheet acImport, , exBook.Worksheets(i).Name, CurrentProject.Path _??????????? \示例工作薄.xls, True, exBook.Worksheets(i).Name ! ??? Next??? exBook.Close??? Set exBook = Nothing??? exapp.Quit End Sub 现存问题：运行后，提示打开excel表编辑，不能保证excel关闭。 下面是对EXECL的基础操作说明： Set xlApp = CreateObject(Excel.Application) ‘激活EXCEL应用程序 xlApp.Visible = False ‘隐藏EXCEL应用程序窗口 Set xlBook = xlApp.Workbooks.Open(strDestination) ‘打开工作簿，strDestination为一个EXCEL报表文件 Set xlSheet = xlBook.Worksheets(1) ‘设定工作表 1、定义EXCEL对象变量 dim x as excel.application 2、VB中，启动EXCEL set x=createobject(excel.application) 3、新建一个EXCEL工作簿 x.workbooks.add 4、选定工作表1 set xsheet=xbook.worksheets(1) 5、指定单元格，并赋值 xsheet.cell(1,1)=ret.fields(0) 6、指定EXCEL列宽 xsheet.column(1).columnwidth=10 7、RANGE（）函数，选定单元格区域 range(cells(1,1),cells(10,20)) 8、设置EXCEL字体 xsheet.range(cells(1,1),cells(10,20)).=黑体 9、设置EXCEL为粗体 xsheet.range(cells(1,1),cells(10,20)).fontbold=true 10、设置EXCEL表格边框 xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous 11、运行时，显示EXCEL或隐藏EXCEL x.visible=true 12、保存工作簿 xbook s