共享excel文件包括adodb连接

您好我有本地networking中的问题白色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 ; 如何在我的系统中正常工作，在这里问题为什么它不能在本地networking中的其他PC非常感谢

Answer 1

你需要的是叫做后期绑定。 这是如何用“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。