将几十个xls文件导入Access答案

【问题标题】：Importing dozens of xls files into Access将几十个xls文件导入Access
【发布时间】：2014-09-26 20:46:22
【问题描述】：

我有一个包含 5 个不同选项卡的 Excel 电子表格。我想在由 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

我的 access 数据库中有五个表。我是否需要编写一些 excel vba 来创建 5 个文件来剥离 5 个选项卡中的每一个，然后将这 5 个选项卡导入我的访问数据库中的相应表中？或者有什么方法可以调整我上面的代码，将每张表中的第一个数据选项卡放入第一个表中，将第二个选项卡放入第二个表等？

【问题讨论】：

标签： excel ms-access vba

【解决方案1】：

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

【讨论】：

涵盖一切。谢谢你！
不确定这是否适合我的需要。我有几个文件夹，每个文件夹中有几十个excel文件。我需要选择所有文件夹，然后循环浏览每个文件。每个文件将有 5 个选项卡，需要进入其相应的访问表。不确定我是否在您的链接上看到了涵盖此类标准的示例？
其中涵盖的一些主题包括：通过 TransferSpreadsheet (VBA) 从单个文件夹中的所有 EXCEL 文件导入数据，通过 TransferSpreadsheet (VBA) 从单个文件夹中的所有 EXCEL 文件中的特定工作表导入数据)，通过 TransferSpreadsheet (VBA) 将单个 EXCEL 文件中的所有工作表中的数据导入到一个表中，通过 TransferSpreadsheet (VBA) 将单个 EXCEL 文件中的所有工作表中的数据导入单独的表中...。检查它可能会为您提供的链接开始了。