从宏查询（加入）外部wokbooks

葵花籽

我有3个Excel工作簿：
1 U5 Z1 [/ B* m宏（完成后将作为外接程序）
前期数据清单
当前期间数据列表
1 ?# X4 }! g& n5 \9 {这两个列表均少于1000行。

, M7 v; C+ m1 u$ w我正在尝试join在这些列表之间创建一个SQL ，但无法正常工作。由于工作表名称中包含点（例如“ TB 03.18”），因此我使用了技巧-
$ r8 a( I- A# G6 ]# w, c+ y在SO的某处找到-在相应的工作簿中定义命名范围。
6 n! }8 l# [/ l5 U! d; \! n下面的代码包含有效的2条SQL信息和给出错误的1条信息。我搞不清楚了。
'set connection to 'current tb'
6 v# c. k5 w5 `( q4 g& U1 F$ |sConn = &quotrovider=Microsoft.ACE.OLEDB.12.0;Data Source=" & wbCurr.FullName & _
3 y6 D. f% t7 Z& Y2 M; F4 f        ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
' X- O$ ~5 I) Z* ~" \- n% F! F* w0 ^Set con = New ADODB.Connection
con.Open sConn
9 K8 W: I1 z% I$ u2 v- ~4 DwbCurr.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
shCurr.Range("F5:I15000").Clear
Dim xl12 As String: xl12 = "[Excel 12.0rovider=Microsoft.ACE.OLEDB.12.0;Extended Properties='HDR=YES';] "
6 J$ [: D3 f  g' w
4 m4 g. b; a* W% Z'this works ------------------
' f* Y0 s6 p! S& A" n'sSql = "select reference from  cur " & vbCrLf & _
       "where cur.reference like '1%'"
1 n2 }* I; @# L* `" K0 U% @'this works ------------------
sSql = "select pre.reference  " & vbCrLf & _
2 B! m2 ~9 N9 _8 b       "from pre IN '" & wbPrev.FullName & "' " & xl12 & vbCrLf & _
5 c8 f7 i& `3 C5 K: a& w       "where pre.reference like '1%'"
'not working: syntax error in FROM clause
'sSql = "select cur.reference from  cur " & vbCrLf & _
" V: y" J4 C5 h" ~* ~! T$ l$ ]       "inner join pre IN '" & wbPrev.FullName & "' " & xl12 & " on cur.reference = pre.reference " & vbCrLf & _
- x" Y; t% U8 b       "where cur.reference like '1%'"
Debug.Print Now, sSql
3 \2 f( k4 f  P3 ?5 kSet rs = con.Execute(sSql)
               
解决方案: