VBA OPENROWSET Syntaxfehler in FROM-Klausel

Question

Ich möchte Excel-Tabellen MsSQL-Tabellen oder anderen Excel-Tabellen JOIN. Ich versuche den zweiten Fall zu testen. Ich versuche, Daten aus der Excel-Tabelle mit dem OPENROWSET zu erhalten. Später werde ich das verwenden, um Tabellen zu verbinden, aber jetzt kann ich nicht einmal diese einfache Abfrage bearbeiten.

Ciselnik1 ist ein Arbeitsblatt in Test.xlsx Arbeitsmappe und enthält einen kleinen Tisch mit Kopf:

FK__S_HEAD | Desc 
------------------------------- 
ODD AM  | ODD - description1 
ODDZP  | ODD - desc2 

Der follwing Code der "Syntaxfehler in FROM-Klausel" Fehler wirft:

Sub TestExternalSQLwithCisJoin() 
Dim objConn As ADODB.Connection, objCmd As ADODB.Command, objRS As ADODB.Recordset 
Dim sPath As String, sSQL As String, sConn As String 

Set objConn = New ADODB.Connection 
Set objCmd = New ADODB.Command 
Set objRS = New ADODB.Recordset 

sSQL = "SELECT * FROM OPENROWSET(""Microsoft.ACE.OLEDB.12.0"",""Database=c:\...\Test.xlsx;Extended Properties=Excel 12.0 Xml;HDR=YES"",""SELECT * FROM [Ciselnik1$]"")" 

sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\...\Test.xlsm;Extended Properties=""Excel 12.0 Macro;HDR=YES"";" 

Set objConn = New ADODB.Connection 

'MsgBox sSQL 

objConn.Open sConn 
'objRS.Open sSQL, objConn, adOpenStatic, adLockBatchOptimistic, adCmdText 
objConn.Execute sSQL, lngRecsAff, adExecuteNoRecords 

Dim A0cell As Range 
Worksheets("Test").Activate 
Set A0cell = Worksheets("Test").Cells(1, 1) 
A0cell.CopyFromRecordset objRS 

End Sub 

Answer 1

OPENROWSET ist nur keine Funktion, die der Microsoft.ACE.OLEDB.12.0-Provider unterstützt.