Question

我已将具有固定宽度的文本文件粘贴到A列中。我尝试记录步骤，但在将文本重新创建到A列后运行宏时出现以下错误 - 运行时错误1004

宏将用于在具有相同列间距的多个文件上完成相同的任务。谢谢你的帮助！

Sub Text2Columns()
    Columns("A:A").Select

    Selection.TextToColumns Destination:=Range("a3"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(48, 1), Array(65, 1), Array(88, 1), Array(110, 1), _
        Array(131, 1), Array(154, 1)), TrailingMinusNumbers:=True
    Columns("A:A").ColumnWidth = 12.86


End Sub

Answer 1

我不清楚.Range("A3")来自哪里，但是当您选择要处理的整个列时（A1是活动单元格），这可能是您问题的根源。

Sub Text2Columns()
    With Sheets("Sheet1")   '<-set to the worksheet!!!
        With .Columns("A:A")
            .TextToColumns Destination:=.Columns(1), DataType:=xlFixedWidth, _
                FieldInfo:=Array(Array(48, 1), Array(65, 1), Array(88, 1), Array(110, 1), _
                Array(131, 1), Array(154, 1)), TrailingMinusNumbers:=True
            .ColumnWidth = 12.86
        End With
    End With
End Sub

有关远离依赖选择和激活以实现目标的更多方法，请参阅How to avoid using Select in Excel VBA macros。

TextToColumns产生运行时错误1004

1 个答案: