如何将多个txt文件的数据导入到一个excel表单中？

Question

我想将坐在一个文件夹中的许多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 

谢谢你，马克

Answer 1

尝试导入数据而不是打开CSV文件。

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

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

你将不得不改变目的地代码从在同一地点覆盖彼此保持文件。如果我想在不同的工作表上使用它们，我会使用包含工作表名称的完整地址。