將多個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中所需的宏

回答

相關問題