多个用户更新Excel工作表 - 可能断开ADO记录集？

问题描述：

我有被设置为共享，并作为团队内的多个用户访问下面的excel表：多个用户更新Excel工作表 - 可能断开ADO记录集？

Sheet http://im47.gulfup.com/xQTWqT.png

由于纸张在新的记录经常更新的，我已经设置了下文共享选项和片被保存和其他用户更改正在每隔五分钟（可以设置最低）更新：

Options http://im47.gulfup.com/SBX4jf.png

当用户试图在对数据库进行更新时出现的问题日在5分钟内同一时间，然后Excel会提示他们这个单元格已经包含数据，并提供解决这些变化。

有什么办法可以避免这种情况发生。

我已经搜索并遇到了断开连接的ADO记录集，但我不清楚他们如何在我的场景中提供帮助。

任何帮助将得到高度赞赏。

你有VBA标记在自己的问题，但我不理解这是如何涉及VBA。 – 2014-10-31 19:02:14

@bp_你不会知道的。 – CaptainABC 2015-01-19 15:45:26

答

没关系我想通了：

在一个工作簿创建用户输入表单，并创建另一个工作簿中的数据存储（让称它为第一册）。

下一页这是代码：

Private Sub CommandButton1_Click() 

' Add the ActiveX Object Library 
' Tools ---> References ---> Microsoft ActiveX Data Objects 2.5 Library 

    Dim cn As ADODB.Connection 
    Set cn = New ADODB.Connection 
    With cn 
     .Provider = "Microsoft.Jet.OLEDB.4.0" 
     .ConnectionString = "Data Source=C:\Users\Name\Downloads\Book1.xls;" & _ 
    "Extended Properties=Excel 8.0;" 
     .Open 
    End With 

    strSQL = "INSERT INTO [Sheet1$](Name, Age, Nationality, Amount) values('" & UserForm1.TextBox1.Value & "','" & UserForm1.TextBox2.Value & "','" & UserForm1.TextBox3.Value & "','" & UserForm1.TextBox4.Value & "')" 
    cn.Execute strSQL 

    End Sub

多个用户更新Excel工作表 - 可能断开ADO记录集？

相关推荐