ADO连接excel数据，当其他用户打开文件时，查询出错

Will.li

接字符串如下：
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=no;imex=1';Data Source=" & strDataSource
我发现把工作表激活这一行放在上面的打开连接字符串的前面和放在后面的结果不一样。放在前面，我后面用activesheet时就报错，提示“应用程序定义或对象定义错误”。如果放在后面，则没有提示错误，程序顺利执行完。这是什么原因？
第二，为什么其他用户以编辑的方式打开文件时，我这边执行完VBA代码后，会打开strDataSource这个文件？如果没有其他人在编辑的话就不会打开该文件？

zhaogang1960

一、直接用工作表名
二、用变量把activesheet.Name记住，再使用该变量

Will.li

zhaogang1960 发表于 2014-11-24 21:33
一、直接用工作表名
二、用变量把activesheet.Name记住，再使用该变量

赵版，我是在工作表的属性窗口那里，把名称改了，然后我直接用的名称。我感觉跟我引用工作表的方式没有关系吧？
我关注的重点是为什么我执行完查询后会打开data source这个文件呢？（当别人在编辑这个文件时，我执行完代码后，这个文件就会自动打开；当没有人在编辑时，就不会打开）
还请赵版出手相助啊。

zhaogang1960

Will.li 发表于 2014-11-24 21:43
赵版，我是在工作表的属性窗口那里，把名称改了，然后我直接用的名称。我感觉跟我引用工作表的方式没有关 ...

没有理解，如果数据源没有打开，就不存在activesheet
请上传附件，说明要求

张雄友

zhaogang1960 发表于 2014-11-24 22:14
没有理解，如果数据源没有打开，就不存在activesheet
请上传附件，说明要求

http://club.excelhome.net/thread-1168020-1-1.html

怎么遍历所有文件夹？

Will.li

zhaogang1960 发表于 2014-11-24 22:14
没有理解，如果数据源没有打开，就不存在activesheet
请上传附件，说明要求

赵版，请查看附件。 ADO.rar (37.75 KB, 下载次数: 43)

2014-11-24 23:18 上传

点击文件名下载附件

要求：放在局域网内共享，用一台电脑以编辑的方式打开【数据源.xlsx】，另外一台电脑打开那两个查询的文件，点击查询按钮查看不同的结果（一个能查到内容，一个不能查到内容）。而且，查询完之后，【数据源.xlsx】就自动打开了，这是为什么呢？

如果没有别的用户以编辑的方式打开【数据源.xlsx】那么两个文件的查询结果一致，并且查询完之后【数据源.xlsx】不会自动打开。

zhaogang1960

Will.li 发表于 2014-11-24 23:18
赵版，请查看附件。
要求：放在局域网内共享，用一台电脑以编辑的方式打开【数据源.xlsx】，另外一台电脑 ...

应该是共享工作簿引起的
看到新要求，实在抱歉，你这个问题我不会，我从没有处理过共享工作簿

Will.li

zhaogang1960 发表于 2014-11-24 23:38
应该是共享工作簿引起的
看到新要求，实在抱歉，你这个问题我不会，我从没有处理过共享工作簿

非常感谢赵版。不过我这个只是放在局域网的文件夹内，excel文件本身是不需要共享的。就是放在局域网的共享文件夹上，大家都可以编辑。

Will.li

zhaogang1960 发表于 2014-11-24 23:38
应该是共享工作簿引起的
看到新要求，实在抱歉，你这个问题我不会，我从没有处理过共享工作簿

我就是奇怪的是，为什么别的用户打开了数据源文件，执行完查询后我这边也自动打开了数据源文件呢？
不知道设置cnn.mode对不对，我试了从0，1,2,3,4,8,12,16几个数，都不能阻止程序执行完后自动打开数据源文件。

zhaogang1960

Will.li 发表于 2014-11-24 23:45
我就是奇怪的是，为什么别的用户打开了数据源文件，执行完查询后我这边也自动打开了数据源文件呢？
不知 ...

经测试，两个工作簿都可以查询到结果

第二个问题不会