使用 ADODB 在 Excel 工作簿中插入特定的 table

Question

我正在尝试使用 ADODB 将 SQL INSERT INTO 命令执行到 Excel 工作表中。当工作表中只有一列时，我可以使用以下代码插入到工作表中：

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H1

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

Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=PathToFile.xls;Extended 
Properties=Excel 8.0;"

Connection.Open

Dim SQL As String

SQL = "INSERT INTO [Sheet1$] VALUES('Test')"
Call Connection.Execute(SQL, , CommandTypeEnum.adCmdText Or ExecuteOptionEnum.adExecuteNoRecords)

但我想在同一个工作表中包含三个单独的 table，并指定要插入其中的 table。我怎样才能做到这一点？我尝试创建 tables，命名它们，并使用此 SQL 语句指定 table 但我一直收到错误消息：Microsoft Jet 数据库引擎找不到对象 'TestTable1'。确保该对象存在并且您正确拼写了它的名称和路径名。

SQL = "INSERT INTO TestTable1(ID) VALUES('test')"

Answer 1

你可以这样做：

Sub TestInsert()

    InsertRecords Sheet4.Range("B3").CurrentRegion, _
               "insert into @ values('AAA','BBB','CCC')"

    InsertRecords Sheet4.Range("F3").CurrentRegion, _
               "insert into @ values('ZZZ')"

    InsertRecords Sheet4.Range("H3").CurrentRegion, _
               "insert into @ values('Whirled',99999)"

End Sub



Sub InsertRecords(rng As Range, sSQL As String)

    Const S_TEMP_TABLENAME As String = "SQLtempTable"
    Dim oConn As New ADODB.Connection
    Dim sPath

       'name the selected range
       On Error Resume Next
       ThisWorkbook.Names.Item(S_TEMP_TABLENAME).Delete
       If Err.Number <> 0 Then Err.Clear

       On Error GoTo haveError
       ThisWorkbook.Names.Add Name:=S_TEMP_TABLENAME, RefersToLocal:=rng

       sPath = ThisWorkbook.Path & "\" & ThisWorkbook.Name

       oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                  "Data Source=" & sPath & _
                  ";Extended Properties=""Excel 8.0;HDR=Yes"""

       oConn.Execute Replace(sSQL, "@", S_TEMP_TABLENAME)

      Exit Sub

haveError:
      MsgBox Err.Description

End Sub

之前：

之后：

使用 ADODB 在 Excel 工作簿中插入特定的 table

Use ADODB to INSERT INTO specific table in an Excel workbook

excel

vba

adodb