Public Sub lfa()
        Dim AccessConn As New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
          "Source=F:\Test\Databases\nwind.mdb;")
 
        AccessConn.Open()
 
        'New sheet in Workbook
        Dim AccessCommand As New OleDbCommand("SELECT * INTO [Excel " & _
          "8.0;DATABASE=F:\Test\empty.xls; HDR=Yes;].[Orders] from [Orders]", _
          AccessConn)
 
        AccessCommand.ExecuteNonQuery()
        AccessConn.Close()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist