Office: (Office 365) copyfromrecordset funktioniert nicht mehr

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 rot markierten Stelle auf.

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

 

Hi Jens,

da ja bis gestern alles lief kann es doch nur an fehlenden oder falschen Parametern beim Prozeduraufruf liegen. Welche Werte haben denn:
cTabAbfrSQL As String, FullExcelDatName As String, ExcelTabName As String, ExcelStartZelle As String, und ZellenLeeren As Boolean ? Schon überprüft? Sind das auch gültige Werte?

 

Hallo Ralf,

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.

 

...und was hat sich seit gestern verändert? Denn an der Syntax von copyfromrecordset ist kein Fehler zu erkennen...

 

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-Repatur hat nichts gebracht.

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

 

...hmm... seltsam... wenn wirklich nichts verändert wurde, die Parametertypen, -anzahl und -reihenfolge stimmt, die DB nicht verschoben, umbenannt oder ausgetauscht wurde, dann hab ich jetzt auch keine Idee woran es liegen könnte...

Lass Dir doch im Debugger mal die Adresse von xlsheet.Range(ExcelStartZelle).Address ausgeben. Ist das eine korrekte Adresse?

Manchmal ist es das nicht offensichtliche...
Habt Ihr vielleicht Besuch von Außerirdischen? Deren Magnetfeld bringt mitunter immer mal wieder die EDV durcheinander...

 

Eigenartig ist auch, dass diesselbe Datenbank mit den selben XLS-Dateien problemlos auf einem anderen PC funktioniert.
Ich werde daher morgen mal mein Office (Version aktuell: 18.2411.1163.0) neu installieren lassen und Euch berichten.

 

Debug.Print xlsheet.Range(ExcelStartZelle).Address ergibt übrigens $A$2

 

Guten morgen zusammen,

nach dem Löschen der installierten Office-Installation und der Neu-Installation bricht der Code zwar nicht mehr ab ABER es werden keine Daten in die Excel-Datei eingefügt bzw. klappt das Kopieren der Daten in Access nicht.

Wie kann man jetzt herausfinden was von beidem nicht funktioniert ?

 

Inwiefern kann mir unter Office 365 das mit dem DAO auf die Füße fallen und was wäre für Office 365 die Alternative ?

Dim AktDb As DAO.Database, rs As DAO.Recordset

 

Wenn DAO und VBA keine Lust haben, schon mal mit Power Query probiert? Das dürfte wesentlich unkomplizierter funktionieren... Und in Off 365 ist PQ integraler Bestandteil...

 

Mal ins Blaue geschossen: Du verwendest hier das Objekt DAO, und das kann sich inzwischen in der Version geändert haben. Wenn du das mal als late binding machst, ist es egal, welche Version das ist.
Oder, es kann sein, dass bei euch DAO rausgeflogen ist.

 

Hallo czil,

danke für Deine Antwort.
Wie meinst Du das, ob DAO "rausgeflogen" sein könnte ?
Wie bindet man das als Late binding ein ?

 

Gibt ja immer wieder mal ein wenig Verwirrung be DAO, weshalb viele ADOB nutzen.
Schau dir mal das hier an
Einbinden von Objektbibliotheken per VBA | HERBERS Excel Forum

 

Es geht ja hier wirklich nur um den Datenexport von Access nach Excel. Letztendlich ist es aber egal, ob ich die Daten ex- oder importiere. Um dieses ganze umständliche VBA Gedöns zu umgehen, würde ich mir eine Excel Vorlagendatei erstellen (denn nach Exel muss man ja auch nach dem Export sowieso wechseln, sonst wäre er ja sinnlos), in der ich über das Menü Daten --> Daten abrufen --> Aus Datenbank --> AccessDB die entsprechenden Tabellen oder Abfragedaten auswählen und einlesen lassen. Das sind lediglich ein paar Mausklicks. Und wer sich danach etwas intensiver einarbeitet kann dann auch noch etliche andere Kunststücke mit den Daten treiben. Z. Bsp., dass er sich eine Parametertabelle erstellt, in der er von vornherein die Quelle ändern/wechseln kann... für den Fall.es sollen unterschiedliche Quellen angezapft werden.