创建一个宏来将多个CSV文件导入到MicrosoftAccess

以下是用VBA代码编写的一个解决方法，它可以实现导入多个CSV文件到Access数据库中：

Sub Import_CSVs()

Dim strPath As String Dim strFile As String Dim strTable As String Dim strPathFile As String

strPath = "C:\CSV_Files" '指定CSV文件所在的文件夹路径 strTable = "MyCSVTable" '创建一个名为MyCSVTable的Access表

strFile = Dir(strPath & "*.csv") '列出文件夹中所有的CSV文件

Do While Len(strFile) > 0 strPathFile = strPath & strFile DoCmd.TransferText acImportDelim, , strTable, strPathFile, True '使用转移文本方法将CSV文件导入到Access表中 strFile = Dir Loop

MsgBox "导入完毕！"

End Sub

请注意：上面的代码是通过使用DoCmd对象的TransferText方法将每个CSV文件导入到Access表中的。如果您想将数据添加到现有表中，只需将strTable变量更改为您需要使用的表的名称即可。