office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

Access批量導入Excel錶數據

2018-09-26 14:25:00
tmtony8
原創
12522

因爲工作內容的關繫,往往需要在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.導入成功




    分享