TextToColumns会产生运行时错误1004

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更多的方法从依靠选择越来越远，并激活，以实现自己的目标。