Question

使用什么VBA宏命令可以在工作表之间切换，以便执行特定的Workbook Connecton SQL命令？

我所尝试的是，要选择工作表，请在特定连接的SQL命令中编写工作表特定的sql命令存储该命令，然后刷新工作簿以获取结果。代码仅在最初执行的工作表上执行，而不是我选择的工作表。

Sheets("Alex").Select

' The SQL command text
Dim comText As String
comText = ... // the SQL command text

' Changes the workbook's SQL command text to the text in the code above
With ActiveWorkbook.Connections("conCRM").ODBCConnection // conCRM - the name of the conection
    .commandText = comText
End With

' Refreshes data from the database
ActiveWorkbook.Connections("conCRM").Refresh

在我看来，错误的是代码中的最后一行是针对整个工作簿而不是我需要的特定工作表。

Answer 1

看看这是否接近你想要做的事情。它需要3个不同的SQL语句，为每个语句添加一个工作表，执行它并将每个结果放在一个新工作表上。

Sub addSQLResultsOnto3Sheets()
    Dim oConn As WorkbookConnection
    Dim oQt As QueryTable
    Dim oSh As Worksheet
    Dim i, SQL

    'Get the existing connection's connection string
    Set oConn = ActiveWorkbook.Connections("conCRM")

    'Three different SQL statements, to be output onto 3 different worksheets.
    SQL = Array("SELECT TOP 1 * FROM MyTable", "SELECT TOP 2 * FROM MyTable", "SELECT TOP 3 * FROM MyTable")

    For i = 0 To 2
        'Add a new sheet "Results N"
        Set oSh = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        oSh.Name = "Results " & (i + 1)

        'Add a new sheet with SQL
        Set oQt = oSh.ListObjects.Add(xlSrcExternal, oConn.ODBCConnection.Connection, Destination:=oSh.Range("A1")).QueryTable
        oQt.CommandText = SQL(i)
        oQt.Refresh
    Next

End Sub

不同的Excel工作表的不同SQL命令

1 个答案: