2012-07-06 73 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之前的一段时间,否则该范围将默认为活动工作表。

相关问题