使用带有 ACE OLEDB 的 'Insert Into' SQL 带有列名的语句在 Excel 工作表上失败

Question

所以，我想在如何将数据存储到工作表方面有纪律，并且想使用 SQL OLEDB Provide for Excel 和标准 SQL 语句。 Insert into with column names 不起作用，至少对我来说是这样。一些代码演示了这个问题。希望此处显示的两种形式都能正常工作 W3 Schools SQL INSERT INTO Statement

Option Explicit

Sub MinimalCompleteVerifiableExample()
    'Tools->References "Microsoft ActiveX Data Objects 2.8 Library"

    Dim wsNew As Excel.Worksheet
    Set wsNew = ThisWorkbook.Worksheets.Add

    wsNew.Cells(1, 1) = "TimeStamp"
    wsNew.Cells(1, 2) = "Path"


    Dim oConn As ADODB.Connection
    Set oConn = New ADODB.Connection

    Debug.Assert UBound(Split(ThisWorkbook.Name, ".")) > 0  '* Workbook needs to be saved

    oConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & ThisWorkbook.FullName & ";" & _
           "Extended Properties='Excel 12.0 Macro'"


    Dim rsTestRead As ADODB.Recordset
    Set rsTestRead = New ADODB.Recordset
    rsTestRead.Open "Select * from [" & wsNew.Name & "$] AS P", oConn, adOpenStatic

    Debug.Assert oConn.Errors.Count = 0
    Debug.Assert rsTestRead.Fields.Item(0).Name = "TimeStamp"
    Debug.Assert rsTestRead.Fields.Item(1).Name = "Path"

    Dim sSQL As String
    sSQL = "insert into [" & wsNew.Name & "$] (TimeStamp,Path) VALUES ('31-Dec-2015','C:\temp');"  'DOES NOT WORK
    'sSQL = "insert into [" & wsNew.Name & "$]  values ('25-Dec-2015','C:\temp')" 'works

    Stop
    oConn.Execute sSQL
    Debug.Assert oConn.Errors.Count = 0
    Stop
End Sub

On 收到 "Syntax error in INSERT INTO statement."

的错误消息

Answer 1

啊。

似乎在列名称周围添加了方括号

    Dim sSQL As String
    sSQL = "insert into [" & wsNew.Name & "$] ([TimeStamp],[Path]) VALUES ('31-Dec-2015','C:\temp');"

使用带有 ACE OLEDB 的 'Insert Into' SQL 带有列名的语句在 Excel 工作表上失败

Using 'Insert Into' SQL Statement with column names on Excel Worksheet with ACE OLEDB fails

excel

vba

ms-jet-ace