Sub DAO_ListTablesExcel()
    Dim strDatei_Excel As String
    Dim DB1 As DAO.Database
    Dim tbl As DAO.TableDef
    strDatei_Excel = "D:\ADO_DAO\ExcelDatei.xls"
    Set DB1 = OpenDatabase(strDatei_Excel, False, False, "Excel 8.0;")
    For Each tbl In DB1.TableDefs
        Debug.Print tbl.Name
    Next
End Sub