从宏查询（加入）外部wokbooks

葵花籽

我有3个Excel工作簿：
宏（完成后将作为外接程序）
5 ?/ U- ?2 b$ p$ ]- D0 H3 c0 ?) ^前期数据清单
* |3 W" |. F7 d  Q( @当前期间数据列表
这两个列表均少于1000行。

/ l8 K5 l4 f5 G% P我正在尝试join在这些列表之间创建一个SQL ，但无法正常工作。由于工作表名称中包含点（例如“ TB 03.18”），因此我使用了技巧-
在SO的某处找到-在相应的工作簿中定义命名范围。
, U; V5 w  \: L. b7 R7 Y- ~# J, }下面的代码包含有效的2条SQL信息和给出错误的1条信息。我搞不清楚了。
'set connection to 'current tb'
. o3 a/ M' V4 ZsConn = &quotrovider=Microsoft.ACE.OLEDB.12.0;Data Source=" & wbCurr.FullName & _
- u4 D3 D& A. M6 m) l        ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
Set con = New ADODB.Connection
+ a, P5 R& T* [4 A, Q% y8 lcon.Open sConn
wbCurr.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 !!!
' L" s3 k1 _6 m  A2 ~lastRow = shPrev.Range("a15000").End(xlUp).Row
0 E/ ?" `# \2 U1 H: @shCurr.Range("F5:I15000").Clear
, W% J) j8 s: SDim xl12 As String: xl12 = "[Excel 12.0rovider=Microsoft.ACE.OLEDB.12.0;Extended Properties='HDR=YES';] "

'this works ------------------
2 G8 X) e+ u8 L2 k1 ]: L' R7 I'sSql = "select reference from  cur " & vbCrLf & _
8 E8 J3 x3 V% d9 @7 J: `# n       "where cur.reference like '1%'"
, W3 ]% H! A8 v9 W'this works ------------------
sSql = "select pre.reference  " & vbCrLf & _
! R+ z7 e% s/ M% @/ X8 j8 q/ `6 Z       "from pre IN '" & wbPrev.FullName & "' " & xl12 & vbCrLf & _
) C( J4 f; n$ h0 |& Q0 s: Q8 l       "where pre.reference like '1%'"
' q; `) J$ r% e! [4 }'not working: syntax error in FROM clause
; g2 Q8 H8 I+ T* ?; ['sSql = "select cur.reference from  cur " & vbCrLf & _
6 Q- q; u  u( t- Y' L       "inner join pre IN '" & wbPrev.FullName & "' " & xl12 & " on cur.reference = pre.reference " & vbCrLf & _
       "where cur.reference like '1%'"
& N6 `# p4 d1 U$ j/ pDebug.Print Now, sSql
: r) T5 ^; Z+ f; PSet rs = con.Execute(sSql)
- A* l. y# S- n% M5 _% y6 p               
解决方案: