VBA文本到列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部分似乎並不喜歡這樣。

請幫忙

Answer 1

您在OtherChar行之后缺少, _ ：

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

但是，還要修復其余代碼：

• 選擇和選擇是不必要的，會降低速度，並可能導致錯誤。 該論壇上有文章介紹如何以及為什么避免它們。
• 要將一列設置為文本格式， xlTextFormat返回2 ，因此您的FieldInfo應該有所不同：

---

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