VBA Text to Columns FieldInfoテキストが機能しない

Question

こんにちは私は、列Aを|に変換するコードを作成しようとしています。列Aをテキスト形式にします。

マイコード：

Sub TEST_Text_to_Columns() 
ActiveSheet.Range("A:A").Select 
    Selection.TextToColumns _ 
     Destination:=Range("A1"), _ 
     DataType:=xlDelimited, _ 
     TextQualifier:=xlDoubleQuote, _ 
     ConsecutiveDelimiter:=False, _ 
     Tab:=False, _ 
     Semicolon:=False, _ 
     Comma:=False, _ 
     Space:=False, _ 
     Other:=True, _ 
     OtherChar:="|" 
     FieldInfo _ 
    :=Array(1, 1), TrailingMinusNumbers:=True 


ActiveSheet.Columns("A:GZ").AutoFit 


End Sub 

のFieldInfo部にこれを好むようには見えません。また、コードの残りの部分を修正するために、しかし

Sub TEST_Text_to_Columns() 
ActiveSheet.Range("A:A").Select 
    Selection.TextToColumns _ 
     Destination:=Range("A1"), _ 
     DataType:=xlDelimited, _ 
     TextQualifier:=xlDoubleQuote, _ 
     ConsecutiveDelimiter:=False, _ 
     Tab:=False, _ 
     Semicolon:=False, _ 
     Comma:=False, _ 
     Space:=False, _ 
     Other:=True, _ 
     OtherChar:="|", _ 
     FieldInfo _ 
    :=Array(1, 1), TrailingMinusNumbers:=True 


ActiveSheet.Columns("A:GZ").AutoFit 


End Sub 

：

あなたは, _OtherChar後の行が欠落している

Answer 1

を助けてください

• を選択し、選択は、遅い不要です物事がダウンし、エラーを引き起こす可能性があります。このフォーラムには、どうやってそれらを避けるべきかに関する記事があります。あなたのFieldInfoは少し異なっている必要がありますので、2を返しxlTextFormatテキストとして列をフォーマットする
• ：

---

Sub TEST_Text_to_Columns() 
ActiveSheet.Range("A:A").TextToColumns _ 
     Destination:=Range("A1"), _ 
     DataType:=xlDelimited, _ 
     TextQualifier:=xlDoubleQuote, _ 
     ConsecutiveDelimiter:=False, _ 
     Tab:=False, _ 
     Semicolon:=False, _ 
     Comma:=False, _ 
     Space:=False, _ 
     Other:=True, _ 
     OtherChar:="|", _ 
     FieldInfo _ 
    :=Array(1, 2), TrailingMinusNumbers:=True 


ActiveSheet.Columns("A:GZ").AutoFit 


End Sub