共享excel文件包括adodb连接

Question

嗨我有问题，因为excelvba＆amp;我在本地网络中使用adodbe连接使用this link description

中的代码

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; 如何在我的系统中正常工作，问这里为什么它不能在本地网络中的其他电脑上工作 非常感谢

Answer 1

您需要的是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

相当多，在后期绑定中，您不必明确地引用该库，它可以在任何PC上运行。在早期绑定中你必须这样做。在早期绑定中，您也可以获得IntelliSense。