Hallo zusammen,

ich versuche heute schon eine ganze Weile den Fehler für das nachfolgend genannte Problem zu finden. Bis gestern hat mit dem nachfolgenden VBA-Code alles tatellos funktioniert und heute hängt er sich an der fett markierten Stelle auf.

Es wird im Übrigen der Fehler 430 "VBA Klasse unterstützt keine Automatisierung oder unterstützt erwartete Schnittstelle nicht" ausgegeben.
Ansonsten werden beim Mouseover die korrekten Werte ausgegeben.

Es hat sich offensichtlich nichts verändert ... die Daten und die XLS-Dateien sind vorhanden, ebenso die Pfade.
Ich kann es mir absolut nicht erklären warum sich der Code mit dieser Fehlermeldung aufhängt.
Auch eine Windows Online-Reparatur hat nichts gebracht.

==> Es wird schlichtweg das Einkopieren der Daten nicht vollzogen.

Eigenartig ist auch, dass dieselbe Datenbank mit den selben XLS-Dateien problemlos auf einem anderen PC funktioniert.

Kann bitte jemand helfen ?
Danke Jens


Sub ExcelExportCopyFromRecordset(AcTabAbfrSQL As String, _
FullExcelDatName As String, _
ExcelTabName As String, _
ExcelStartZelle As String, _
ZellenLeeren As Boolean)

' KEIN Verweis auf Excel notwendig
' Access97, Excel97 getestet
Dim xlApp As Object, xlbook As Object, xlsheet As Object
Dim AktDb As DAO.Database, rs As DAO.Recordset

Set AktDb = CurrentDb

On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0
Set xlbook = xlApp.Workbooks.Open(FullExcelDatName)
Set xlsheet = xlbook.sheets(ExcelTabName)
xlApp.Visible = False

Set rs = AktDb.OpenRecordset(AcTabAbfrSQL)
If ZellenLeeren Then
xlsheet.Range(ExcelStartZelle, Mid(xlsheet.UsedRange.Address, _
InStr(xlsheet.UsedRange.Address, ":") + 1)).ClearContents
End If
xlsheet.Range(ExcelStartZelle).copyfromrecordset rs
xlbook.Save
xlbook.Close
Set rs = Nothing
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlApp = Nothing

End Sub