Question

我试图从另一张表中获取信息而不将所需的表格复制到我的工作簿中。我正在设法从同一个工作簿中加入查询，所以我知道将所需的数据添加到我的文件中会起作用，但我希望避免这种情况，因为它是一个大文件。

以下是我在同一工作簿中添加多个工作表信息的代码。我需要的是根据我自己的文件中选择的序列号从第二个文件中获取其他信息。所以我想知道是否有任何方法在From语句中插入另一个文件名（DB Data2.xlsb和DB Other.xlsb

Set oCONN = New ADODB.Connection: Set oRS = New ADODB.Recordset
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source=" & ActiveWorkbook.FullName & ";" & _
            "Extended Properties=""Excel 12.0;HDR=Yes;"";"

strSQLSelect = "SELECT distinct `'LV-ALU (2)$'`.MODUS_Nat_ArtNr, `Tabelle1$`.Modul_Typ "
strSQLFrom = " FROM" & _
" `C:\Users\xxx\Desktop\Excel Sql\DB Data2.xlsb`.`'LV-ALU (2)$'` `'LV-ALU (2)$'`," & _
" `C:\Users\xxx\Desktop\Excel Sql\DB ***Data2.xlsb***`.`Tabelle1$` `Tabelle1$` "
strSQLWhere = " WHERE `Tabelle1$`.Modus_Nat_ArtNr = `'LV-ALU (2)$'`.MODUS_Nat_ArtNr AND ((`'LV-ALU (2)$'`.Felgendurchmesser='18'))"

strSQL = strSQLSelect & strSQLFrom & strSQLWhere
oCONN.Open strConn
oRS.Open strSQL, oCONN

在VBA中使用2个excel文件

0 个答案: