[原创]ADO查询

pmkpmk · 发表于 2006-4-5 20:15

[em23][em23][em23]

zjy0201 · 发表于 2006-5-29 22:38

我运行了一下ADO查询不误!就是工作表查询范围只能到A4:K81.能否大一点.

爱歌学习 · 发表于 2006-5-29 23:37

Set rngt = Sheets(t).Range("b4").CurrentRegion '包含 b4 的一个连续区域，比如 A1:K78 sAddress = rngt.Offset(3, 0).Address(0, 0) '向下偏移 3 行，即为 A1:K81 所以这不是个固定大小，例如如果你的数据区从 A1 连续到 P300 ，那么 Set rngt = Sheets(t).Range("b4").CurrentRegion 得到的就是 A1:P300，再看你的字段名是从第几行开始的，来确定是否用下一句进行偏移。另外有些情况下不考虑字段名也是可以的。

想学VBA · 发表于 2006-6-1 18:32

好东西啊，收藏起来！试了一下，如果有重名的话怎么显示？

爱歌学习 · 发表于 2006-6-5 11:57

哦，就这个例子来说，是没有考虑重名的，查到第一个就 Exit Sub 退出了。如果要查全部，那么稍改一下，设定好显示格式即可，这要根据具体问题修改了.

sharpliu · 发表于 2006-6-7 00:02

好东西。

chat163 · 发表于 2006-7-11 10:01

rngt.Offset(3, 0).Address(0, 0)

用绝对引用是不可以的即去掉Address(0, 0),后即出现类型不匹配的情况

不知道什么道理?查了下帮助好像没看到关于select 语句的帮助讯息

[em06]

爱歌学习 · 发表于 2006-7-12 17:43

绝对引用地址是 rngt.Offset(3, 0).Address(1,1) ，而不是把 Address(0, 0) 去掉，若去掉，则变成单元格对象，而不是地址了

qh_cz · 发表于 2006-7-26 07:43

非常不错的软件

ynztwxqy · 发表于 2006-8-15 22:53

请“爱歌学习”老师帮忙

http://club.excelhome.net/viewthread.php?tid=182727&px=0

		自动登录	找回密码
密码			免费注册

[原创]ADO查询

[建议]