将数十个xls文件导入到Access中

我有一个Excel电子表格有5个不同的选项卡。 我想创build这个电子表格访问由5个不同的表格表示。

我的第一个尝试是在文件中导入。 我有以下代码

Function ImportFiles() Dim myfile Dim myDir mypath = "C:\Data\Dashboard\" myDir = Directory myfile = Dir(mypath & "*.xlsx") While myfile <> "" Debug.Print "importing" & myfile DoCmd.TransferSpreadsheet acImport, , "Data", myfile, True myfile = Dir() Wend End Function 

我的访问数据库中有五个表。 我是否需要编写一些excel vba来创build5个文件，将5个选项卡中的每一个都删除，然后将这5个选项卡导入到我的访问数据库中相应的表中？ 或者有什么办法来适应我的上面的代码把第一个表中的数据第一个标签，第二个表中的第二个表等？

Answer 1

您可以使用以前编写的代码： http : //www.accessmvp.com/kdsnell/EXCEL_Import.htm#ImpAllWktsSepTbl