Intelligente Tabelle mittels VBA und ADO ansprechen

Option Explicit

 

Dim connect As Object ' Verbindung

Dim rst As Object ' Recordset

Dim file As String ' Datei

Dim strConnection As String ' Verbindungszeichenfolge

Dim sql As String ' SQL-Abfrage

Dim tabelle As String ' Tabellenname

 

Sub query()

     

    ' Verbindung herstellen

    Call ado_auf_excel_dateien

     

    ' Recordset mit Daten füllen

    sql = "SELECT Modul_1, Modul_2, Modul_3 FROM [tab_rollout$]"

    rst.Open sql, connect

     

    ' Daten ausgeben

    Do While Not rst.EOF

        MsgBox rst(0)

        MsgBox rst(1)

        MsgBox rst(2)

        rst.MoveNext

    Loop

     

    rst.Close

End Sub

 

Sub ado_auf_excel_dateien()

    ' Dateiname und Pfad

    file = "\\Pfad\zur\Netzwerkdatei\Netzwerkdatei.xlsx"

     

    ' Verbindungszeichenfolge für Excel-Dateien

    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & file & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"""

     

    ' Tabellenblattname

    tabelle = "Tabelle1"

     

    ' Verbindung herstellen

    Set connect = CreateObject("ADODB.Connection")

    connect.Open strConnection

     

    ' Recordset erstellen

    Set rst = CreateObject("ADODB.Recordset")

End Sub