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

Question

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

这是我找到的代码，但“tablename”应该是我的文件名。但是，由于我是脚本新手，所以我无法让它工作。

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

另外，我的文件中有三列，我希望将第三列作为双精度列导入。

任何帮助将不胜感激。

Answer 1

应该是这样的：

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

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