如何將多個txt文件的數據導入到一個excel表單中？

我想將坐在一個文件夾中的許多txt文件的數據合併到一張excel表格中。如何將多個txt文件的數據導入到一個excel表單中？

我記錄了一個宏，並最終打開了不同的工作簿中的文件，你能修復下面的代碼或創建一個新的，所以我可以讀取所有的txt文件，並把數據放在1 Excel表？

Sub GetTxtData() 

ChDir "C:\Users\Desktop\TXT" 
Workbooks.OpenText Filename:="C:\Users\Desktop\TXT\Data0.txt", Origin:= _ 
    xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _ 
    , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _ 
    False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _ 
    , Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True 

Workbooks.OpenText Filename:="C:\Users\Desktop\TXT\Data1.txt", _ 
    Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ 
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _ 
    Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _ 
    TrailingMinusNumbers:=True 
End Sub

謝謝你，馬克

來源

2013-04-29 Marc Chemali

我會執行一個完整的循環，包括將數據複製到一張表中，同時記錄宏 – 2013-04-29 15:05:14

爲什麼不嘗試使用獲取外部數據導入數據？有一個這樣的教程：[在MSDN上]（http://office.microsoft.com/en-gb/training/import-data-import-text-files-into-excel-2003-RZ001180132.aspx?section = 1） – 2013-04-29 15:12:13

也，這是一個很好的答案，從** Siddharth Rout **這種類型的pf事情：[http://stackoverflow.com/questions/11267459/vba-importing-text-file-into-excel-sheet ]（http://stackoverflow.com/questions/11267459/vba-importing-text-file-into-excel-sheet） – 2013-04-29 15:14:18

嘗試導入數據而不是打開CSV文件。

在Excel 2007中，這由Data，From Text完成。

你會得到這樣的： ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\Desktop\TXT\Data0.txt", Destination:=Range("$A$1")) ...

你將不得不改變目的地代碼從在同一地點覆蓋彼此保持文件。如果我想在不同的工作表上使用它們，我會使用包含工作表名稱的完整地址。

來源

2013-04-29 15:17:44

與這個宏很好地工作：http：//stackoverflow.com/questions/11267459/vba-importing-text-file-into-excel- sheet – 2013-04-29 15:49:28

如何將多個txt文件的數據導入到一個excel表單中？

回答

相關問題