从宏查询（加入）外部wokbooks

葵花籽

我有3个Excel工作簿：
+ p( f, m  Y0 ]& z# A宏（完成后将作为外接程序）
前期数据清单
* V2 o' u% s; D当前期间数据列表
这两个列表均少于1000行。

# t  T3 j5 Q) o$ M5 y' ]. u我正在尝试join在这些列表之间创建一个SQL ，但无法正常工作。由于工作表名称中包含点（例如“ TB 03.18”），因此我使用了技巧-
+ O) k5 }3 c( t5 R/ u6 ]: P在SO的某处找到-在相应的工作簿中定义命名范围。
% C; ?1 j1 Y2 [& x$ j下面的代码包含有效的2条SQL信息和给出错误的1条信息。我搞不清楚了。
5 Z1 f; ]5 X1 b) I3 p" Y'set connection to 'current tb'
sConn = &quotrovider=Microsoft.ACE.OLEDB.12.0;Data Source=" & wbCurr.FullName & _
        ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
Set con = New ADODB.Connection
7 S, H/ b* Y! O( l9 [con.Open sConn
4 T& o8 a# J1 A7 jwbCurr.Names.Add Name:="cur", RefersTo:=shCurr.Range("A4").CurrentRegion    'to be made dynamic !!!
wbPrev.Names.Add Name:="pre", RefersTo:=shPrev.Range("A9").CurrentRegion    'to be made dynamic !!!
lastRow = shPrev.Range("a15000").End(xlUp).Row
3 p/ C  ]3 u0 F* BshCurr.Range("F5:I15000").Clear
Dim xl12 As String: xl12 = "[Excel 12.0rovider=Microsoft.ACE.OLEDB.12.0;Extended Properties='HDR=YES';] "
1 g" Y7 D0 [  F
9 _& V; S( ?1 d9 p9 b'this works ------------------
'sSql = "select reference from  cur " & vbCrLf & _
       "where cur.reference like '1%'"
'this works ------------------
sSql = "select pre.reference  " & vbCrLf & _
       "from pre IN '" & wbPrev.FullName & "' " & xl12 & vbCrLf & _
       "where pre.reference like '1%'"
1 _% Y2 Q! ^. I8 s'not working: syntax error in FROM clause
'sSql = "select cur.reference from  cur " & vbCrLf & _
       "inner join pre IN '" & wbPrev.FullName & "' " & xl12 & " on cur.reference = pre.reference " & vbCrLf & _
  [  N/ o. P2 u       "where cur.reference like '1%'"
Debug.Print Now, sSql
Set rs = con.Execute(sSql)
               
2 B9 \9 X; o/ V! O& s+ Y! M解决方案: