考虑到明年可以不带钱去成都，我决定还是勉为其难研究一下怎么把Excel批量导入Access，毕竟以后要是开公司要上市了也需要这个步骤。

界面上，Access指让导入一个Excel，批量导入这种需求竟然在这么多版本后都没有加上也是汗颜。

手动导入一个的步骤：

然后下一步下一步就导入成功了。

批量导入的话，只能为VBA编程来实现。这个只能靠查资料了。

最终的代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Impo_allExcel()
    Dim myfile
    Dim mypath
    Dim myTableName
    
    mypath = "D:\我的文档\WeChat Files\mazhibin111\Files\"  '把这里换成你的保存excel文件的目录，注意最后有一个反斜杠
    myTableName = "NewTable" '把这里换成你在Access中想要新建的表格的名字

    myfile = Dir(mypath)
    Do While myfile <> ""
      If myfile Like "*.xlsx" Then
        DoCmd.TransferSpreadsheet acImport, 8, myTableName, mypath & myfile, True
      End If
      myfile = Dir()
    Loop
End Function

运行代码的方法：

新建一个模块：

把代码粘贴上去：

把光标放在插入的代码中的任意位置，然后点击运行按钮：

数据就导入成功了~

参考资料