如何將多個txt文件的數據導入一張Excel表格？

Question

我想將一個文件夾中的許多txt文件的數據放到一張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

Answer 1

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

在 Excel 2007 中，這是通過數據，來自文本完成的。

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

您將不得不更改代碼中的目的地，以防止文件在同一位置相互覆蓋。 如果我希望它們都在不同的工作表上，我會使用包括工作表名稱在內的完整地址。