совместное использование файла excel включает соединение adodb

Привет, У меня есть проблема whit excelvba и adodbe подключение в локальной сети. Я использую ниже код из этой ссылки.

Sub tbl() Dim myCn As MyServer Set myCn = New MyServer Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "Select * from mytbl1", myCn.GetConnection Range("A3").CopyFromRecordset rs rs.Close myCn.Shutdown Set rs = Nothing Set myCn = Nothing End Sub 

и vbaproject ; как он работает в моей системе, вопрос здесь, почему он не работает в других ПК в локальной сети, спасибо много

    То, что вам нужно, называется Late Binding. Вот как это сделать с помощью «ADODB.Recordset».

     Sub tbl() Dim rs As Object Set rs = CreateObject("ADODB.Recordset") End Sub 

    И вот еще информация об этом: https://msdn.microsoft.com/en-us/library/0tcf61s1.aspx

    В значительной степени, при позднем связывании вам не нужно явно ссылаться на библиотеку, и она может работать на любом ПК. В раннем связывании вы должны это сделать. В раннем связывании вы также получаете IntelliSense.

    Давайте будем гением компьютера.