title image


Smiley Export nach Excel erzeugt Laufzeitfehler
Hallo,



beim export eines DAO.recordSet tritt bei mir ein Laufzeitfehler ("Die Methode 'CopyFromRecordset' für das Objekt 'Range' ist fehlgeschlagen") auf, sobald das recordSet eine gewisse Größe (ab dem 40. Datensatz) überschreitet.

Hier der Code der das recordSet an Excel übergibt:



Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

Set xlBook = xlApp.Workbooks.Add()

Set xlSheet = xlBook.Worksheets(1)



lngAnzahlFelder = rs.Fields.Count

ReDim strFeldNamen(lngAnzahlFelder - 1)

With rs

For i = 0 To (lngAnzahlFelder - 1)

strFeldNamen(i) = .Fields(i).Name

Next i

End With

With xlSheet

'Überschrift - Feldnamen exportieren

.Range(.Cells(1, 1), _

.Cells(1, lngAnzahlFelder)).Value = strFeldNamen

'Daten

.Range("A2").CopyFromRecordset rs

End With



Weiß jemand woran das liegt?

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: