2012-07-06 40 views
0

我使用」text to columns「嚮導的宏代碼並將其放入我的代碼中。但它並不一致。Text to Columns正在獲取對象的「方法」範圍'_global'失敗「

我得到「方法‘範圍’的對象_global失敗」(有時) 我看着它,和應用解決方案,要麼改變什麼(它的錯誤後來幾次執行)

目前嘗試指定它更好的給我留下了

With Shipping 
.ActiveSheet.Columns(letter & ":" & letter).TextToColumns Destination:=Range(letter & "1"), DataType:=xlDelimited, _ 
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _ 
    Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ 
    :=Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9)), TrailingMinusNumbers:= _ 
    True 
End With 

我不知道,如果它想我指定上半年或目標,我不能找到一個更好的解決方案。

我該如何做這項工作?

+0

'letter'如何設置? – 2012-07-06 15:21:52

+0

是'航運'參考表單?另外,當宏失敗時,檢查「letter」傳遞的內容。不足之處在於,您能否發佈一些樣本數據供我們使用? – 2012-07-06 15:21:59

+0

將Range(letter&「1」)更改爲'.ActiveSheet.Range(letter&「1」)'時會發生什麼?我假設'Shipping'是一本工作手冊? – 2012-07-06 15:25:46

回答

0

而不是使用(例如).ActiveSheet.Columns("A:A")爲什麼不使用更簡單的形式.ActiveSheet.Columns(1)

並在Destination參數中添加Range之前的一段時間,否則該範圍將默認爲活動工作表。

相關問題