通过VBA导入文本文件

这是每次我运行它的问题，而不是更新我导入的旧数据，它将旧数据推到右侧。

任何人都可以帮助我在这个我想导入文本文件到特定区域也包含文本分隔后导入，你可以从下面看到

像import文件从A3栏到Z3这样的东西，我无法find正确的词来解释它

Sub import() rPaht = Sheet5.Range("a1") rFileName = Sheet5.Range("b1") Sheet5.Range("a4").CurrentRegion.Offset(500, 0).Resize(, 40).Clear With Sheet5.QueryTables.Add(Connection:= _ "TEXT;" & rPaht & "\" & rFileName & ".txt", Destination:=Sheet5.Range("$A$4")) .Name = Sheet5.Range("b1").Value .TextFilePlatform = 874 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileOtherDelimiter = "?" .Refresh BackgroundQuery:=True End With Sheet5.Range("a1") = rPaht Sheet5.Range("b2") = rFileName End Sub 

如果你能build议任何新的代码我会感激

解释包括是我学习编码的最好礼物

Answer 1

我通过在读取一个txt文件到excel中recording macro来尝试queryTable

我认为你错过了一条重要的路线

.RefreshStyle = xlOverwriteCells

我尝试过和WITHOUT这一行，行为是取代和SHIFT数据的权利

RefreshStyle的默认值是xlInsertDeleteCells – Partial rows are inserted or deleted to match the exact number of rows required for the new recordset.

参考