用VBA导入文本文件

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

任何人都可以在这方面帮助我 我想将这个文本文件导入到特定的区域，也包含导入后分隔的文本，如下面所示

像从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

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

---

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

我试着通过在excel中读取txt文件来记录宏来查询表格

我认为你漏掉了一条关键线

.refreshtstyle=xlOverwriteCells

我尝试了使用和不使用这行的

，行为是替换数据并将数据向右移动

RefreshStyle
的默认值为
xlInsertDeleteCells
--
插入或删除部分行以匹配新记录集所需的精确行数。

我应该将丢失的代码行放在哪里？我应该将不需要的代码行删除到哪里？我试图将代码行放在哪里，但它仍然将数据向右移动