如何在ACCESS中导入一个文件夹中的多个excel表格，望高手解答

Dim fd As FileDialog
Set fd = ApplicationFileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
AllowMultiSelect = True
If Show = -1 Then
For Each vrtSelectedItem In SelectedItems
DoCmdTransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "table1", vrtSelectedItem, True, "sheet1！"
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
MsgBox "Import Completed!"
你自己整理一下吧，我之前用过这个，可以一次导入多个excel

工具栏－－连接
补充：
单击右键－－显示表－－选中要进行联结的表－－填加－－选中其中一表的“卷宗号”－－拖动到另一表的“卷宗号”处－－d出对话框－－下面的3个勾选框全部勾选－－创建－－ok

你好温柔你凉姐363，1在Access中创建对Excel工作簿的链接：在Access中选择“外部数据——导入——Excel”。
2在“获取外部数据”对话框中选择“通过创建链接表来链接到数据源”。
必须为每个Excel工作簿重复该过程直到将它们都链接到数据库。
3在SQL视图中开始新的查询，单击“创建——其他——查询设计”。
4选择“查询工具-设计”中的“SQL视图”
5在SQL视图中，为所有链接的Excel表输入Select语句，在每个Select语句间使用Union *** 作符，在SQL视图中输入选择查询语句。
6运行查询后，结果将是包含从所有链接的文件中获取并合并后的数据。
只要链接的Excel文件在相同的位置，每次打开数据库时Access将自动刷新链接以获取最新数据。这意味着只需设置一次，然后在每次需要重新组合Excel文件时运行联合查询。
然而，默认情况下，UNION *** 作符会移除数据中的任何重复行。如果知道数据中有重复行，并且想保留它们，那么需要使用UNION ALL，以允许传递重复行。

---