从宏查询（加入）外部wokbooks

葵花籽

我有3个Excel工作簿：
7 N% }4 J; |1 a' d+ ?宏（完成后将作为外接程序）
前期数据清单
当前期间数据列表
. K" n: v# i0 ^' _% t7 K& U这两个列表均少于1000行。

我正在尝试join在这些列表之间创建一个SQL ，但无法正常工作。由于工作表名称中包含点（例如“ TB 03.18”），因此我使用了技巧-
* h" [' o7 G1 |7 B3 D+ r. V  j在SO的某处找到-在相应的工作簿中定义命名范围。
+ }) S  @; W8 i: [0 B5 o% b/ n下面的代码包含有效的2条SQL信息和给出错误的1条信息。我搞不清楚了。
( E; d, @5 y& X! Q1 D'set connection to 'current tb'
  a* M) A5 H# G) t8 LsConn = &quotrovider=Microsoft.ACE.OLEDB.12.0;Data Source=" & wbCurr.FullName & _
" Q0 e/ G1 N7 W+ v5 g: p3 v+ P, X        ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
- C: Y" k( m  m/ Y1 ~- gSet con = New ADODB.Connection
con.Open sConn
3 i# p5 D6 l2 h! ?: S. kwbCurr.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 !!!
; W! s$ N3 ?/ M0 T: ~$ x( [' TlastRow = shPrev.Range("a15000").End(xlUp).Row
shCurr.Range("F5:I15000").Clear
9 a! F  l7 e& [* J/ zDim xl12 As String: xl12 = "[Excel 12.0rovider=Microsoft.ACE.OLEDB.12.0;Extended Properties='HDR=YES';] "

'this works ------------------
'sSql = "select reference from  cur " & vbCrLf & _
       "where cur.reference like '1%'"
'this works ------------------
4 C! E/ Q! J( O  G' f) U* E( Z  BsSql = "select pre.reference  " & vbCrLf & _
       "from pre IN '" & wbPrev.FullName & "' " & xl12 & vbCrLf & _
3 q8 X0 s7 h  G       "where pre.reference like '1%'"
'not working: syntax error in FROM clause
'sSql = "select cur.reference from  cur " & vbCrLf & _
1 k0 Y, ?( K$ S& R       "inner join pre IN '" & wbPrev.FullName & "' " & xl12 & " on cur.reference = pre.reference " & vbCrLf & _
       "where cur.reference like '1%'"
Debug.Print Now, sSql
; F4 `3 P$ b5 T7 iSet rs = con.Execute(sSql)
               
$ I. D% T- x9 E$ C4 A& s解决方案: