Office中国论坛/Access中国论坛

标题: Acess导出数据到excel中,Selection出错 [打印本页]

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

作者: guotianxin 时间: 2002-11-27 16:44
Dim MyXL As Object
Set MyXL = GetObject(文件名)
with activesheet
range("A1:A3").select
MyXL.Application.selection.merge
end with

作者: jiek 时间: 2002-11-28 04:37
噢,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编辑过]

作者: yuanrongfa 时间: 2006-9-6 19:10

以下是引用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]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)