Acess导出数据到excel中,Selection出错

jiek

我从Acess中查询导出数据到excel中,代码中引用selection时,竟然会出错,但第一次能正常运行,再导出一次的话,就不行了,Why?提示说,无定义物件或无with end with
在Acess中的VBA简略代码如下:
...
with activesheet
range("A1:A3").select
selection.merge
end with
...
请知道的高手指点!!Best Regards!

yuanrongfa

以下是引用jiek在2002-11-26 22:06:00的发言：
我从Acess中查询导出数据到excel中,代码中引用selection时,竟然会出错,但第一次能正常运行,再导出一次的话,就不行了,Why?提示说,无定义物件或无with end with
在Acess中的VBA简略代码如下:
...
with activesheet
range("A1:A3").select
selection.merge
end with
...
请知道的高手指点!!Best Regards!

以下是引用jiek在2002-11-27 20:37:00的发言：
噢,Thanks
我的后来的解决方案
1.定义了一个Range对象
dim kk as range
kk=range("a1:a3")
kk.merge
2.也就是说不要Select了,直接引用范围!
range("a1:a3").merge
不过还是非常感谢你,明天上班时再试一下你的方法@!

哈哈，搜了三个小时零5分钟，终于把和我遇到一样的问题搜出来了，还搜到答案[em01][em01]

jiek

噢,Thanks
我的后来的解决方案
1.定义了一个Range对象
dim kk as range
kk=range("a1:a3")
kk.merge
2.也就是说不要Select了,直接引用范围!
range("a1:a3").merge
不过还是非常感谢你,明天上班时再试一下你的方法@!

[此贴子已经被作者于2002-11-27 20:37:06编辑过]

guotianxin

Dim MyXL As Object
Set MyXL = GetObject(文件名)
with activesheet
    range("A1:A3").select
    MyXL.Application.selection.merge
end with