求教：如何把多个excel表导入导一个access表中

happylirui

导入一个我会，但是导第二个excel表的时候，就弹出“不能导入”的窗口，是什么原因？

Henry D. Sy

Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim strName As String
    Dim i As Integer
    For i = 1 To 3                   '假设你有三个xls文件
        strName = CurrentProject.Path & "\book" & i & ".xls"
        Set xlBook = xlApp.Workbooks.Open(strName)
        DoCmd.TransferSpreadsheet acImport, , "Q", strName
        xlBook.Close
        Set xlBook = Nothing
        xlApp.Quit
        Set xlApp = Nothing
    Next

[ 本帖最后由 Henry D. Sy 于 2009-1-13 12:14 编辑 ]

happylirui

这么复杂啊，没有向导之类简单的吗？

todaynew

原帖由 happylirui 于 2009-1-13 12:20 发表
这么复杂啊，没有向导之类简单的吗？

当然有。以下是一个版友一条sql语句的搞法：

insert into myAccessTable
select * from [EXCEL 8.0;DATABASE=C:\info.XLS].[sheet1]
union all
select * from [EXCEL 8.0;DATABASE=C:\info.XLS].[sheet2]
union all
select * from [EXCEL 8.0;DATABASE=C:\info.XLS].[sheet3]
union all
select * from [EXCEL 8.0;DATABASE=C:\info.XLS].[sheet4]

[ 本帖最后由 todaynew 于 2009-1-13 14:07 编辑 ]

ycxchen

三个xls文件的结构相同才能按2、4楼的办法进行吧？