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更多的方法從依靠選擇越來越遠，並激活，以實現自己的目標。