将多个CSV文件添加到MSAccess 2003中所需的宏

需要关于两件事情的帮助将多个CSV文件添加到MSAccess 2003中所需的宏

1）将多个Csv文件导入到Access的宏。我有多个Csv文件60+左右，导入每个和MSAccess2003非常文件
肯定需要时间。当Google搜索得到了下面的代码，但它不是为我工作

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文件具体coulmn到MSAccess2003宏？

任何帮助，非常感谢。

来源

2011-09-13 Guru

哪条线是不工作？ – Fionnuala

对于getfolder，你有''D：CSVFolder \“'和TransferText你有''D：CSVFolder \”'。两者都看起来不错。尝试'“D：\ CSVFolder \”' – HansUp

首先我同意'HansUp'，你肯定错过了\应该遵循驱动器盘符，其次我相信正确地声明你的变量总是好的，你已经设置了fs，fldr和fls ok ，但随后立即要求在FLS每个佛罗里达州，它可能不是100％必要的，但在我的经验，这将是很好的声明如下：

昏暗F1作为文件

来源

2011-11-26 17:54:21

将多个CSV文件添加到MSAccess 2003中所需的宏

回答

相关问题