用ADO连接Excel表时居然把表格只读打开了...

feng3724 · 发表于 2017-11-8 13:21

本帖最后由 feng3724 于 2017-11-8 16:08 编辑

逛了一下论坛, 有多人也遇到同样的问题:  做为数据源的Excel表放在共享盘(多人有打开编辑权限), 然后用ADO连接时, 如果其他人打开了源表格, 则在连接open时会同时在本地打开源表格(只读).
  看他们做了多种尝试, 都无法避免这种情况.
  两种简单的障眼方法:
   1. 连接时判断源表格是否打开, 打开则copy一份到本地, 然后连接本地的表格;
   2. 如果被打开了, 则加个语句进行判断并关闭之;
  但我觉得这两种方法都会导致增加额外的时间, 所以也再次询问一下老师们, 有没有什么设置上的变更来直接连接源表格, 而不是本地打开它?

  Dim xlscnn as ADODB.Connection
  Set xlscnn = New ADODB.Connection
  With xlscnn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filename & ";Mode=Read;Extended Properties='Excel 12.0;HDR=No;IMEX=1'"
.CommandTimeout = 15 '超时时间，默认为30秒
.Open  '源表格在共享盘中, 如果被他人打开, 则ADO连接时会同时本地打开...
  End With

jsgj2023 · 发表于 2017-11-8 13:33

去掉Mode=Read呢?

feng3724 · 发表于 2017-11-8 13:36

jsgj2023 发表于 2017-11-8 13:33
去掉Mode=Read呢?

最开始连接语句中是没有去设Mode的, 也没有把表格打开的问题, 后来突然出现把表格打开了, 然后我加了这个"Mode=Read", 真的就没打开表格了... 好景不长, 今天再用, 又发现它把表格给打开了(状态还是只读的)..., 而我表格并不是只读的...

jsgj2023 · 发表于 2017-11-8 13:37

建议上传附件看看!

feng3724 · 发表于 2017-11-8 13:38

jsgj2023 发表于 2017-11-8 13:33
去掉Mode=Read呢?

并且, 按理讲ADO只是连接, 并没有打开表格的操作啊...调试也无法发现哪出了问题, cnn.open的同时就把表格给打开了...我是实在找不到原因了....

feng3724 · 发表于 2017-11-8 13:45

jsgj2023 发表于 2017-11-8 13:33
去掉Mode=Read呢?

逐行调试时, 在这几句代码就把表格给打开了...., 并且我这几句代码是放开始位置的...

feng3724 · 发表于 2017-11-8 13:46

本帖最后由 feng3724 于 2017-11-8 14:13 编辑

jsgj2023 发表于 2017-11-8 13:37
建议上传附件看看!

版主, 浏览了一下, 发现这位兄弟也有这样的问题.
他发现了问题, 是别人打开了ADO连接的共享盘上的文档时, open语句就会打开这份文档.
我的问题也是一样的, 表格放共享盘中(非共享,只是大家有权限打开), 这个是ADO的设置吗? 还是说有规避方法?
不想把原文档再拷贝一份到别的地方...
http://club.excelhome.net/thread-1168008-1-1.html

cjq253 · 发表于 2019-8-22 11:47

feng3724 发表于 2017-11-8 13:46
版主, 浏览了一下, 发现这位兄弟也有这样的问题.
他发现了问题, 是别人打开了ADO连接的共享盘上的文档时, ...

老兄，这个问题后来找到解决办法了吗？

opel-wong · 发表于 2021-8-26 14:41

这现在也碰到这个问题了，
Excel工作薄在局域网中，如果已经有其它电脑用户打开这个文件，
这里，如果你在同局域网下的不同电脑，用ADO连接这个工作薄，会被自动打开。

我现在的方法是，关闭ADO连接后，判断是否被打开，如果被打开，则关闭它。

fenghuaxue · 发表于 2023-1-31 10:00

HDR=No;IMEX=1 我在连接字符串中添加这个会报错，有什么解决办法吗

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

[求助] 用ADO连接Excel表时居然把表格只读打开了...