Access批量導(dǎo)入Excel表數(shù)據(jù)

因?yàn)楣ぷ鲀?nèi)容的關(guān)系，往往需要在Access中批量導(dǎo)入多個(gè)Excel數(shù)據(jù)。

前面發(fā)布的《Excel導(dǎo)出導(dǎo)入Access代碼大全匯總》內(nèi)容中也有類似的示例。  

1.創(chuàng)建Access表，設(shè)置好與Excel表格一樣的字段

2.在相關(guān)事件中，鍵入下列代碼。其中"E:\學(xué)員名單"為導(dǎo)入Excel文件的文件夾

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Set getfso = fso.GetFolder("E:\學(xué)員名單").files    
    For Each i In getfso
          DoCmd.TransferSpreadsheet acImport, 8, "學(xué)員名單", i, True
   Next

3.導(dǎo)入成功