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