office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access批量导入Excel表数据

2018-09-26 14:25:00
tmtony8
原创
35805

因为工作内容的关系,往往需要在Access中批量导入多个Excel数据。

前面发布的Excel导出导入Access代码大全汇总》内容中也有类似的示例。  


1.创建Access表,设置好与Excel表格一样的字段



2.在相关事件中,键入下列代码。其中"E:\学员名单"为导入Excel文件的文件夹

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Set getfso = fso.GetFolder("E:\学员名单").files    
    For Each i In getfso
          DoCmd.TransferSpreadsheet acImport, 8, "学员名单", i, True
   Next



3.导入成功




    分享