从宏查询（加入）外部wokbooks

葵花籽

我有3个Excel工作簿：
宏（完成后将作为外接程序）
! f- k; o5 Y# L6 n8 K( a前期数据清单
# ^+ J* H8 p/ Y; C" g当前期间数据列表
& z. e) w+ u6 X这两个列表均少于1000行。

6 E0 x* }6 c; s% R' }6 y我正在尝试join在这些列表之间创建一个SQL ，但无法正常工作。由于工作表名称中包含点（例如“ TB 03.18”），因此我使用了技巧-
在SO的某处找到-在相应的工作簿中定义命名范围。
下面的代码包含有效的2条SQL信息和给出错误的1条信息。我搞不清楚了。
% g8 ^. |0 G4 c* t, q'set connection to 'current tb'
sConn = &quotrovider=Microsoft.ACE.OLEDB.12.0;Data Source=" & wbCurr.FullName & _
0 h4 h! q3 w/ K1 T        ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
Set con = New ADODB.Connection
con.Open sConn
) Q3 V1 z) F" i6 Y% ?5 I, IwbCurr.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 !!!
" e( H( S! J$ v1 slastRow = shPrev.Range("a15000").End(xlUp).Row
shCurr.Range("F5:I15000").Clear
2 N5 O6 J# r; G. N6 LDim xl12 As String: xl12 = "[Excel 12.0rovider=Microsoft.ACE.OLEDB.12.0;Extended Properties='HDR=YES';] "
3 L; s! m1 ?' X4 \- ^! l
: F. D* F/ K3 a/ n3 N3 P8 k'this works ------------------
& W( ^# p. L3 [. C+ D'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 & _
2 c5 F5 x. Q' Z$ ~  P' n* X: T& w9 g. p       "where pre.reference like '1%'"
'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 & _
0 g3 k1 \1 [2 z! x1 R6 g$ ^       "where cur.reference like '1%'"
% r. F6 w2 H4 Z/ ADebug.Print Now, sSql
% q9 m0 q  k9 {  p, j8 ~, CSet rs = con.Execute(sSql)
! M  [% H1 C8 U- `. A% U: z! g: K               
解决方案: