excel导入access方法（转）

来源：百度文库编辑：神马文学网时间：2024/04/27 21:32:26

excel导入access方法

摘　要:导入多个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方法 excel导入access方法2 Excel 数据导入到 Access、Sql Server 中示例代码 EXCEL打开和读取ACCESS的几个方法 Excel表格导入cdr的方法和处理技巧思品课导入方法及其的特点（转） excel导入VB 向Excel中导入文本数据方法_Office技巧_使用技巧_PC WORLD中国网新东方背单词解决无法导入txt文件的方法（转） 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转sqlserver注意事项 ACCESS