excel导入access方法

来源：百度文库 编辑：神马文学网 时间：2024/04/27 23:54:10
摘　要:导入多个excel表到access
正　文:
'将同目录下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关闭。
excel导入access方法 excel导入access方法2 excel导入access方法（转） Excel 数据导入到 Access、Sql Server 中示例代码 EXCEL打开和读取ACCESS的几个方法 Excel表格导入cdr的方法和处理技巧 excel导入VB 向Excel中导入文本数据方法_Office技巧_使用技巧_PC WORLD中国网 Excel与Access数据交流技巧 Excel Services 和 Excel Web Access 简介 - ShareP... 将excel数据导入oracle中- - 将excel数据导入oracle中- - VB 实现 数据快速导入EXCEL VB 实现 数据快速导入EXCEL 将网页表格导入到Excel中 asp代码实现EXCEL数据导入到 股票实时行情能导入Excel吗 使用ADO Recordset对象导入Excel autoCAD图形导入Coreldraw方法 课堂导入方法举隅 ACCESS 防止ACCESS数据库被下载的方法 asp代码实现EXCEL数据导入到SQL数据库 在Excel 2007中导入或导出文本文件-星光网络学院