在文件A中,有表aa
在文件B中,有表bb
要打开文件,须进行以下操作.
SQL调用另一文件的通信方式
Function WithSqlReturnExcelRecordSet(Sql As String, InputFileName) As ADODB.Recordset
Dim rst As New ADODB.Recordset
Set Cnn = New ADODB.Connection
Cnn.Open "Provider = MicroSoft.Jet.OLEDB.4.0; Extended Properties = 'Excel 8.0;imex=1'; Data Source = " & InputFileName
rst.Open Sql, Cnn, adOpenStatic
Set WithSqlReturnExcelRecordSet = rst
End FunctionSQL建立本文件的通信方式
Function ConnectRst(Sql As String) As ADODB.Recordset
Dim Cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
rst.Open Sql, Cnn, adOpenStatic
Set ConnectRst = rst
End Function问:用SQL+JOIN语句能实现上述要求吗?
在文件B中,有表bb
要打开文件,须进行以下操作.
SQL调用另一文件的通信方式
Function WithSqlReturnExcelRecordSet(Sql As String, InputFileName) As ADODB.Recordset
Dim rst As New ADODB.Recordset
Set Cnn = New ADODB.Connection
Cnn.Open "Provider = MicroSoft.Jet.OLEDB.4.0; Extended Properties = 'Excel 8.0;imex=1'; Data Source = " & InputFileName
rst.Open Sql, Cnn, adOpenStatic
Set WithSqlReturnExcelRecordSet = rst
End FunctionSQL建立本文件的通信方式
Function ConnectRst(Sql As String) As ADODB.Recordset
Dim Cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
rst.Open Sql, Cnn, adOpenStatic
Set ConnectRst = rst
End Function问:用SQL+JOIN语句能实现上述要求吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货