Vba TextToColumns生成运行时错误1004

我已将一个固定宽度的文本文件粘贴到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

---

我不清楚

.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

子文本2列（）
对于Sheets（“Sheet1”）“是否有错误消息？