我有3个Excel工作簿:
我试图在这些列表之间制作一个SQL join
,但我无法让它工作。由于工作表名称中有点(如“TB 03.18”),我在SO-上的某个地方使用了技巧 - 在相应的工作簿中定义了命名范围。
下面是代码,其中包含有效的2 SQL和提供错误的SQL的信息。我搞不清楚了。
'set connection to 'current tb'
sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & wbCurr.FullName & _
";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
Set con = New ADODB.Connection
con.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 !!!
lastRow = shPrev.Range("a15000").End(xlUp).Row
shCurr.Range("F5:I15000").Clear
Dim xl12 As String: xl12 = "[Excel 12.0;Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='HDR=YES';] "
'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%'"
'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 & _
"where cur.reference like '1%'"
Debug.Print Now, sSql
Set rs = con.Execute(sSql)
使用Jet / ACE SQL引擎,您可以使用方括号或反引号转义标识符中的特殊字符。因此,该期间不应成为问题,然后您可以使用完整工作表名称和A1
范围表示法来清除SQL查询而不是命名范围。
但是,您的特定SQL错误是由于在IN
子句中使用INNER JOIN
。避免使用最适合一个表的IN
,并使用句点限定符语法将工作簿路径作为内联调用中的参数传递,其中甚至不需要Provider:
FROM [Excel 12.0 Xml;HDR=Yes;Database=C:\Path\To\Workbook].[Worksheet$] AS w
总而言之,请考虑以下调整,而不使用难以调试的命名范围。下面显示了如何使用括号或反引号处理句点以及如何使用A1
表示法范围引用内部和外部工作表。
strSQL = "SELECT s1.[reference]" & _
" FROM [S.h.e.e.t1$A4:Z100] s1" & _
" INNER JOIN [Excel 12.0 Xml;HDR=Yes;Database=C:\Path\To\Workbook].`S.h.e.e.t.2$A9:Z100` s2
ON s1.[reference] = s2.[reference]" & _
" WHERE s1.reference LIKE '1%'"
rs.Open strSQL, con