Verwenden Sie eine Abfrage im SQL-Stil in Excel mit VBA

Ich habe den größten Teil des Tages gebraucht, aber ich habe es herausgefunden. Hier ist der Code:

Sub Excel_QueryTable()

Sheet2.Cells.ClearContents

Dim oCn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim ConnString As String
Dim SQL As String

Dim qt As QueryTable

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\t.xlsm;Extended Properties=Excel 8.0;Persist Security Info=False"
Set oCn = New ADODB.Connection
oCn.ConnectionString = ConnString
oCn.Open

SQL = "Select * from [Sheet1$] WHERE type='man'"

Set oRS = New ADODB.Recordset
oRS.Source = SQL
oRS.ActiveConnection = oCn
oRS.Open

Set qt = Worksheets(2).QueryTables.Add(Connection:=oRS, _
Destination:=Range("A1"))

qt.Refresh

If oRS.State <> adStateClosed Then
oRS.Close
End If

If Not oRS Is Nothing Then Set oRS = Nothing
If Not oCn Is Nothing Then Set oCn = Nothing

End Sub

Damit dies in Ihrer eigenen Arbeitsmappe funktioniert, müssen Sie die Data Source ändern Pfad zum Namen der Datei, die Sie verwenden.

[Sheet1$] in der Abfrage ist der Name des Blattes, aus dem Sie auswählen (lassen Sie $ ).

Worksheets(2) ist die Nummer des Blattes, auf dem Sie die dynamische Tabelle erstellen.

Außerdem müssen Sie eines der Microsoft Active X Data Objects aktivieren Bibliotheken, indem Sie zu Tools>References gehen im VBA-Editor in Excel.