3

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

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

就像将文件从 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

如果您能建议任何新的代码，我将不胜感激

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

4

1 回答 1

2

recording macro我尝试通过将 txt 文件读入 excel 中的queryTable

我认为您缺少一条关键线

.RefreshStyle = xlOverwriteCells

我试过这条线，行为是替换WITH并将WITHOUT数据向右移动

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

参考

于 2012-12-20T09:26:43.727 回答