将多个CSV文件导入Access数据库，并根据文件名将它们保存到不同的表中

Question

我有大约100个CSV文件，我尝试将它们导入Access，然后根据文件名重命名表格。

以下是我找到的代码，但＆＃34; tablename＆＃34;应该是我的文件名。但是，由于我不熟悉脚本，我无法让它工作。

Function Import_multi_csv()

Dim fs, fldr, fls, fl
Set fs = CreateObject("Scripting.FileSystemObject")
Set fldr = fs.getfolder("D:Files\")
Set fls = fldr.files

     For Each fl In fls

      If Right(fl.Name, 4) = ".csv" Then
       DoCmd.TransferText acImportDelim, , "TableName", "D:Files\" & fl.Name, False
      End If

     Next fl

End Function

另外，我的文件中有三列，我想将第三列导入为double。

任何帮助将不胜感激。

Answer 1

应该是这样的：

DoCmd.TransferText acImportDelim, , "[" & fs.GetBaseName(fl.Name) & "]", "D:Files\" & fl.Name, False

关于第二个问题，您可以创建，保存和使用导入规范。