先上代碼。
Selection.TextToColumns DataType:=xlDelimited, Other:=True, OtherChar _
:="=", FieldInfo:=Array(Array(1, 2), Array(2, 2))
最終我測試出了以上代碼。Array(1, 2):第一列的粘貼類型是2（文本粘貼）.Array(2, 2):第二列的粘貼類型是2（文本粘貼）。
| DataType | ファイルに含まれるデータの形式を指定。 區切り記號でフィールドが區切られた形式（xlDelimited：既定値）、固定長文字列の形式（xlFixedWidth） [省略可能] |