Excel Tabellennamen auslesen

[MasterDS]

Hi Leutz,

folgedes Problem. Ich lese Excel-Tabellen via ODBC folgendermaßen aus.

Sub Auslesen()
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Me.lblPfadOrg.Text & ";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"""
        Dim ExcelConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)
        Dim Adapter As OleDb.OleDbDataAdapter = Nothing

        Try
            ExcelConnection.Open()
            Adapter = New OleDb.OleDbDataAdapter("Select * FROM [Tabelle1$]", ExcelConnection)
            Adapter.Fill(ExcelTabelleORG) '<--- Ist eine Datatable!

           [...]
End Sub

Das funktioniert auch Prima. Allerdings wird im Adapter der Tabellenname (hier: Tabelle1) angegeben. Allerdings "weiss" ich den Tabellennamen eigentlich nicht.

Wie kann ich vorab die Namen der vorhandenen Tabellen auslesen?

Danke!

 

[MasterDS]

... ich kann mir ja eigentlich nicht vorstellen, dass niemand weiss wie das geht...

Jemand einen Tipp?

 

[ingop]

Hallo ,

vieleicht hilft ja das hier

tables = connection.GetSchema("Tables", restrictions)
columns = connection.GetSchema("Columns")

cu

INgo