Public Sub ExcelImport( _
           strDatabase As String, _
           strExcelFile As String, _
           strSourceTableName As String, _
           strDestTable As String)
 
       Dim td As TableDef
       Dim strTmpLinkTable As String
 
       Dim blnDestTableExist As Boolean
       Dim i As Integer
 
       'Um Konflikte mit bestehenden Tabellen zu vermeiden, wird
       'ein Zufallsname für die notwendige temporäre Tabelle erzeugt
       strTmpLinkTable = "Temp" & CLng(Timer)
 
       Set Db = DBEngine.Workspaces(0).OpenDatabase(strDatabase)
 
       'Zunächst wird überprüft, ob die anzulegende Tabelle schon vorhanden ist
       i = 0
       Do
          blnDestTableExist = False
          For Each td In Db.TableDefs
              If td.Name = strDestTable Then
              MsgBox "Tabelle existiert schon, neue Tabelle mit Namen wird" & _
                "angelegt!"
                  blnDestTableExist = True
                  i = i + 1
                  strDestTable = strDestTable & Trim(Str(i))
                  Exit For
              End If
          Next
       Loop Until Not blnDestTableExist
 
       Set td = Db.CreateTableDef(strTmpLinkTable)
 
       'Temporäres Einbinden der Exceldaten
       td.Connect = "Excel 8.0" & _
                   ";HDR=YES" & _
                   ";IMEX=2" & _
                   ";DATABASE=" & strExcelFile & _
                   ";TABLE=" & strSourceTableName
       td.SourceTableName = strSourceTableName
 
       ' Tabelle in Tabledefs-Auflistung anhängen
       Db.TableDefs.Append td
 
       'Tabellenerstellungsabfrage schreibt Exceldaten in neue Tabelle
       Db.Execute "SELECT * INTO [" & strDestTable & "] FROM " & _
         strTmpLinkTable, dbFailOnError
 
       'Löschen der eingebundenen Tabelle
       Db.TableDefs.Delete strTmpLinkTable
 
      Db.Close
 
End Sub

       ' Name der Datenbank, in die importiert werden soll
       strDatabase = "C:\Verteiler_1\databases\verteiler_2003.mdb"
 
       ' Name der Exceldatei
       'strExcelFile = Text9.Text
 
       ' Name der Tabelle in der Exceldatei
       strTableName = "Report$"
 
       ' Name der zu erzeugenden ACCESS-Tabelle
       tblname = Text10.Text
       strDestTable = tblname
       strExcelFile = tblname
       'strTableName = tblname
 
       ExcelImport strDatabase, strExcelFile, strTableName, strDestTable
       ' ZeigeAccessTab
    ' dbFile: vollständiger Dateiname inkl. 'Pfadangabe zur MDB-Datei
        'tblname = Text9.Text