Dim oExl As Object
 
On Error Resume Next
Set oExl = GetObject("","Excel.Application")
If ObjPtr(oExl) = 0 Then
    Set oExl = CreateObject("Exel.Application")
End IF
 
If ObjPtr(oExl) = 0 Then
     MsgBox "Zugriff auf Excel.Application ist gescheitert!"
     Exit Sub ' oder Function
End IF
On Error Goto 0
 
With oExl
    .Workbooks.Open("Pfad_und_Dateiname") 
    .Sheets("Tabelle1").Select
    .Range("A1").Select
    .Selection.CopyFromRecordset Rs
    .ActiveWorkbook.Save
    .ActiveWorkbook.Saved = True
    .Quiet
End With
 
Set oExl = Nothing