共享Excel文件包括ADODB连接
问题描述:
您好我有问题丝毫excelvba在本地网络& adodbe连接我用下面的代码this link description共享Excel文件包括ADODB连接
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
答
你需要什么叫做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。