使用Adodb读取Excel表格的问题

thestronger

我有一个EXCEL文档A,放在局域网中.我在B中用以下代码读取它的内容:

Function ReadExcel(strName As String, strSheetName As String) As ADODB.Recordset

    Dim Conn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim sql As String

    Conn.Open "provider=microsoft.ace.oledb.12.0;extended properties=""Excel 12.0 Xml;HDR=YES"";data source=" & strName '連接EXCEL文件"

   

    sql = "select * from [" & strSheetName & "$]" '打開EXCEL表

    rs.Open sql, Conn, 3, 3

    Set ReadExcel = rs

   

End Function

运行很正常,无论我事先有没有打开A,都能正常读取.

但是,当别人在其它电脑上先打开A时,就不行了.我用B去读取时,速度变得极为缓慢,而且会自动在我的电脑上打开A.我使用Adodb就是为了追求速度,这样的话就不行了.请问该怎么解决?

PS:论坛里面曾经有人问过类似问题，但是没有满意答案。

jsxjd

程序逻辑有问题

thestronger

什么问题，能指教一下吗？我百度了一下，好像不只我是这样的

wj2368

可能是一个工作簿，不能共享，你设置一下多用户共享

萨秋

同问，同问
也是刚碰到这个问题，请问有无解决，咋 个整法的，谢谢！

m_n_j001

理论不够，说不上个所以然，只晓得excel不是数据库，ado不怎么靠普，如删除记录都完不成。何况看你open中有3,3，估计不仅仅是读吧？
遇这种情况，我一般是换到access中去做就可以了，完了后再倒出来

thestronger

m_n_j001 发表于 2014-12-29 14:13
理论不够，说不上个所以然，只晓得excel不是数据库，ado不怎么靠普，如删除记录都完不成。何况看你open中有 ...

Open那个参数，我试过各种值，都这样

thestronger

萨秋 发表于 2014-12-29 14:02
同问，同问
也是刚碰到这个问题，请问有无解决，咋 个整法的，谢谢！

目前用的一个曲线救国的方法，就是读取之前先判断有没有人打开，如果已经打开，就复制一份，然后读取复制的，这样就不会打开了

萨秋

thestronger 发表于 2014-12-29 16:05
目前用的一个曲线救国的方法，就是读取之前先判断有没有人打开，如果已经打开，就复制一份，然后读取复制 ...

复制的话，不需要打开文件了吗。
请教，在代码中 如何解决，多谢！

liu-aguang

你可以尝试以下方式,看能否解决问题.在所有使用者的代码中:
1.让函数返回的是一个数组或是处理后的数据,而不是返回一个记录集.
2.使用完记录集后,立即断开连接和记录集,并设置为nothing,销毁对象.