2014-10-31 6 views
0

내가 공유로 설정하고 팀 내에서 여러 사용자가 액세스되고있는 아래의 엑셀 시트가 : 매우 자주 새 레코드로 업데이트되는여러 사용자가 Excel 시트를 업데이트하고 있습니다. 연결이 끊긴 ADO 레코드 일 수 있습니까?

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

시트로를, 나는 아래의 설정 옵션을 공유하고 시트가 저장되고 있으며 다른 사용자의 변경은 5 분마다 (사용자가 설정할 수있는 최소) 업데이트되고 있음 : 2 사용자에 데이터베이스를 업데이트하려고하면

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

문제가 발생을 일 5 분 안에 같은 시간에 엑셀은이 셀에 이미 데이터가 포함되어 있으며 변경 사항을 해결할 것을 제안합니다.

이 문제를 방지 할 수있는 방법이 있습니까?

Disconnected ADO Recordset을 검색하여 보았지만, 내 시나리오에서 어떻게 도움이 될지 명확하지 않습니다.

도움이 될 것입니다.

+0

당신은 VBA를 귀하의 질문에 태그가 있지만 나는이 VBA에 관한 방법을 이해하고 있지 않다. –

+0

@bp_ 모를 것입니다. – CaptainABC

답변

0

나는 그것을 알아 낸 신경 쓰지 :

하나의 통합 문서에서 사용자 입력 양식을 작성하고 데이터의 저장을위한 또 다른 통합 문서를 만듭니다 (수 Book1을 호출).

는 다음이 코드입니다 :

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