VBA 自动导入文件夹中的EXCEL表

最新推荐文章于 2024-04-24 16:34:23 发布

solosu00

最新推荐文章于 2024-04-24 16:34:23 发布

阅读量2.5k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： VBA 导入excel 文件夹自动导入导入文件夹EXCEL

本文链接：https://blog.youkuaiyun.com/solosu00/article/details/8642771

VBA 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段VBA代码，该代码用于自动将指定文件夹内的所有Excel文件批量导入到Access数据库中。通过修改文件路径和表名等参数，用户可以根据自身需求灵活调整导入流程。

Public Sub LOAD()
    Dim filepath As String, files As String, filename As String
    
    filepath = CurrentProject.Path & "\文件夹\*.xls"
    files = Dir(filepath)
    'Debug.Print filepath
    Do Until files = ""
        filename = CurrentProject.Path & "\文件夹\" & files
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "表名", filename, True
        Debug.Print filename
        files = Dir  '下一个文件
    Loop
    
End Sub

这个是自动导入ACCEss文件所在目录中的“文件夹” 内的execl表。

各位看官，可以的话留个言，让我知道我帮助了人，我心情会很愉快的哦