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 macrotxtファイルをExcelに読み込んでqueryTableを試しました

重要な行が1つ欠けていると思います

.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 に答える