共享Excel文件包括ADODB连接

Question

您好我有问题丝毫excelvba在本地网络& 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; 如何在我的系统中正常工作，这里的问题为什么它不能在本地网络中的其他PC上工作 谢谢lot

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。