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

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

2025-05-19 13:54:36

推荐回答（1个）

回答1：

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