任何方式將多個（csv）文件導入到Access數據庫

我有多個具有相同方案的csv文件，我想在一個步驟中導入它們。解決方案可能是使用「導入嚮導」，但我只能用它導入一個文件。哦，這將是最好的工作在msaccess2003。 THX任何方式將多個（csv）文件導入到Access數據庫

2009-07-24 misnyo

最簡單的辦法是啓動DOS提示符，更改到你有你的文件的目錄，然後輸入：

type *.csv > allfiles.txt

如果你這樣做的時候，你可以創建一個batch-file，你可以增加一倍從桌面上單擊。

來源

2009-07-24 10:41:08 Espo

感謝，這解決了這一問題。 – misnyo 2009-07-24 11:26:59

你可以寫一個小程序導入看到http://www.javaworld.com/javaworld/javaqa/2000-09/03-qa-0922-access.html對Java JDBC連接器高到MSACCESS，自導入文件是CSV，你可以在任何時候做這個...

有其他語言的其他導入選項

來源

2009-07-24 10:40:32

和是從ESPO的選擇是比較容易，如果你需要這樣做只有一次或沒有自動:) – 2009-07-24 10:43:34

如果您只想使用文件列表驅動導入，則不需要批處理文件。你可以得到的文件使用迪爾（）名單：

Dim strCSVFileName As String 

    strCSVFileName = Dir("*.csv") 
    Do Until strCSVFileName = vbNullString 
    [import strCSVFileName] 
    strCSVFileName = Dir() 
    Loop

當然，這是假定你是從內部訪問做進口，但鑑於你的標籤，這是你的問題的邏輯推理。

來源

2009-07-24 20:27:08

這是一個古老的線程，但它在我搜索該問題時出現。希望這段代碼能夠幫助別人解決相同的挑戰。建立/擴展David-W-Fenton提供的示例。

我使用嚮導首先導入了一個文件。導入到名爲「bestTranscripts」的表中並將導入模板保存爲「BestImport」 - 然後在TransferText命令中使用這些值。

Function ImportFiles() 

On Error Resume Next 

Dim cnn As New ADODB.Connection 
Dim targetSet As New ADODB.Recordset 

Dim sourceDirectoryName As String 
Dim sourceFileName As String 


sourceDirectoryName = "<path containing files>" 

sourceFileName = Dir(sourceDirectoryName & "\*.txt") 
Do Until sourceFileName = vbNullString 
    DoCmd.TransferText acImportDelim, "BestImport", "bestTranscripts", sourceFileName 
    sourceFileName = Dir() 

Loop 


End Function

來源

2014-10-22 23:14:01 user3926080

任何方式將多個（csv）文件導入到Access數據庫

回答

相關問題