通过VBA导入文本文件

Question

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

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

像导入文件从列A3到z3之类的东西，我无法找到正确的词来解释它

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

如果你能提出任何新的代码，我会感激不尽

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

Answer 1

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

我想你错过了一条关键路线

.RefreshStyle = xlOverwriteCells

我试过WITH和WITHOUT这一行，行为是替换和SHIFT数据到右边

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

参考