0

「テキストから列へ」ウィザードを使用してマクロ コードを取得し、コードに挿入しました。しかし、それは一貫して機能していません。

「オブジェクト '_global' のメソッド 'range' が失敗しました」というメッセージが表示されます (時々) 調べて解決策を適用しましたが、何も変更されませんでした (後でいくつかの実行でエラーが発生しました)。

それをより適切に指定しようとする現在の試みは、私に

With Shipping
.ActiveSheet.Columns(letter & ":" & letter).TextToColumns Destination:=Range(letter & "1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
    :=Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9)), TrailingMinusNumbers:= _
    True
End With

前半と目的地のどちらをより適切に指定してほしいのかわかりませんが、解決策が見つかりません。

どうすればこれを機能させることができますか?

4

1 に答える 1

0

（例）を.ActiveSheet.Columns("A:A")使用するのではなく、より単純な形式を使用してみません.ActiveSheet.Columns(1)か？

Destination パラメーターの前にピリオドを追加しRangeます。そうしないと、その範囲がデフォルトでアクティブなシートになります。

于 2012-07-06T17:10:28.723 に答える