如何把多个excel文件批量导入到access

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，以允许传递重复行。

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，以允许传递重复行。

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

---