请教关于SQL以只读形式打开一个excel表

zshowell

请教各位：
在excel2013里，使用


    ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & getfile

...
...
    conn.Open ConnStr, 1, 3
‘只读,当前数据记录可自由移动
乐观锁定 ，直到用Update方法提交更新记录时才锁定记录。

但是只要getfile在excel打开了，vba代码执行是会提示已经被其他程序独占，  vba代码只能挂起不能做查取的工作。
然而在日常工作时，后打开文件的，excel会提示只能以只读形式打开工作表，而在VBA中却不能这样做呢？
请问各位大大，是不是我设connstr还有什么问题？

zshowell

补充
似乎与后面两个参数无关conn.Open ConnStr, 1, 3
只有当源文件没有打开时，用conn.Open ConnStr能查询表中的数据
当源文件被另一个人打开，也是没有办法打开，提示有参数不完整

zpy2

是只要getfile在excel打开了，vba代码执行是会提示已经被其他程序独占，  vba代码只能挂起不能做查取的工作

建议换数据库存储，excel打开文件会锁定所有文件而不是一条记录。

limonet

用adodb.connection的execute，不会有只读等限制。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" _
            & ThisWorkbook.Path & "\LIMONET.xlsx"
    StrSQL = "Select * From [Sheet1$]"
    Range("A1").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

zshowell

谢谢，谢谢各位的帮助，对于调用其他excel文件，我的确了解得比较含糊，最后还是等独占好了，
excel vba中的sql,好像比较多限制，出错的提示也不太理解，
比如delete，好象不行，update 比较慢，幸好繁复的select还行，
删除还是交给vba 做算了。