Question

需要两件事的帮助

1）将多个Csv文件导入Access的宏。我有大约60多个Csv文件，导入MSAccess2003中的每个和非常文件肯定会花时间。当谷歌搜索得到以下代码但它不适合我

Import_multi_csv()
Dim fs, fldr, fls, fl
Set fs = CreateObject("Scripting.FileSystemObject")
Set fldr = fs.getfolder("D:CSVFolder\")
Set fls = fldr.files
For Each fl In fls
    If Right(fl.Name, 4) = ".csv" Then
        DoCmd.TransferText acImportDelim, , "tblName", " D:CSVFolder \" & fl.Name, True
    End If
Next fl

2）是否可以将多个csv文件中的特定库存导入MSAccess2003？

非常感谢任何帮助。

Answer 1

首先我同意'HansUp'，你肯定错过了应该遵循驱动器号的\，其次我认为正确声明你的变量总是好的，你设置了fs，fldr和fls ok，但是它会立即询问fl中的每一个fl，它可能不是100％必要的，但根据我的经验，最好声明如下：

Dim fl as File

将多个CSV文件添加到MS Access 2003所需的宏

1 个答案: