通过ADODB访问Excel工作簿 - 同时拥有多个用户

时间:2017-09-07 07:31:15

标签: database excel vbscript oledb adodb

我正在尝试通过不同远程计算机中的ADODB连接访问放置在共享路径中的Excel工作簿。但是当多个远程计算机试图访问同一个Excel工作表时,它会出现以下错误:

  

Microsoft Office Access数据库引擎无法打开或写入文件''。它已由另一个用户专门打开,或者您需要获得查看和写入其数据的权限。

使用连接字符串

strConnection_Write = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
    Runmanager_path & ";Mode= Share Deny None" & _
    ";Extended Properties=""Excel 8.0;HDR=Yes;"";"

请建议我一个解决方案。

1 个答案:

答案 0 :(得分:1)

我曾经用OLEDB遇到同样的问题,通过使用DAO来解决它...

Dim DBworkbook As DAO.Database
Dim DBSheet As DAO.Recordset

Set DBworkbook = OpenDatabase("C:\File.xls", False, False, "Excel 8.0;HDR=Yes;") 
Set DBSheet = DBworkbook.OpenRecordset("SELECT * FROM [Sheet1$]")

DBSheet.MoveFirst
Do Until DBSheet.EOF
  If DBSheet!Name = "Bob" Then
     DBSheet.Edit
     DBSheet!Addeess = "5 Something Street"
     DBSheet.Update
  End If
  DBSheet.MoveNext
Loop