vba - 通过 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

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

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

Answer 1

我尝试通过录制宏将一个txt文件读入excel来查询表

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

.RefreshStyle = xlOverwriteCells

我尝试了 WITH 和 WITHOUT 这一行，行为是替换并将数据右移

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

Reference