固定文件夹内的多个Excel导入Access 一个表内

1326247040

大神
       如何将一个固定的文件夹，里面有好几个（数量不固定）Excel 工作簿，一次的导入ACCESS内的一个以有的表内。

marco

给二段代码,一个是ACCESS文件的多文件合并,支持子目录遍历,另一段是EXCEL导入ACCESS的代码,自己参考着改一下即可:
Function Getfd(path, FileName As String) As Integer
    On Error GoTo Err:
    Dim FileStr$, i&
    Set Fso = CreateObject("scripting.filesystemobject")
    Set ff = Fso.getfolder(path)
    For Each f In ff.Files
        FileStr = LCase(f.Name)
        If ((FileName <> f.Name) And ("~$" & FileName <> f.Name) And ((Right(FileStr, 6) = ".accde") Or (Right(FileStr, 6) = ".accdb") Or (Right(FileStr, 4) = ".mdb"))) Then
            FileStr = Replace(path + "\" + f.Name, "\\", "\")
            DoCmd.RunSQL "insert into 表名 select  * from [" & FileStr & "].表名"
        End If
    Next f
    '遍历子目录
    For Each fd In ff.subfolders
        i = Getfd(fd, FileName)
    Next fd
    Set Fso = Nothing
    Exit Function
Err:
    MsgBox FileStr & "出错"
End Function
将EXCEL表导入到现有表中：  
Insert INTO ABC Select * FROM [EXCEL 12.0 XML;DATABASE=E:\temp\text.xlsx].sheet1;  

1326247040

marco 发表于 2017-10-14 07:40
给二段代码,一个是ACCESS文件的多文件合并,支持子目录遍历,另一段是EXCEL导入ACCESS的代码,自己参考着改一 ...

好的。我试一下。谢谢。