FROM子句中的VBA OPENROWSET语法错误

Question

我希望能够将Excel表联接到MsSQL表或其他Excel表。我试图测试第二种情况。我试图使用OPENROWSET从Excel表中获取数据。后来我会用它来连接表，但现在我无法工作，即使这个简单的查询。

Ciselnik1是在Test.xlsx工作簿中工作，并包含与头小表：

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

的follwing代码抛出 “语法错误在FROM子句” 错误：

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不是Microsoft.ACE.OLEDB.12.0提供程序支持的功能。