Range类的TextToColumns方法失败

时间:2019-04-23 18:08:47

标签: excel vba

我是一个初学者,试图了解此错误消息的编码:Range类的TextToColumns方法失败。

文件1是带有宏代码的文件,应采用文件2中的注释文本字段(第12 / L列),并根据尾随冒号将文本分成文件1的主选项卡中的不同列(:)

代码如下:

 Range("M2:M" & LastRow).TextToColumns Destination:=Range("Y2"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), _
        Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array( _
        25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), _
        Array(32, 1), Array(33, 1)), TrailingMinusNumbers:=True

任何帮助将不胜感激。 谢谢,

0 个答案:

没有答案