export recordset naar excel 97

[jvsoest]

Hoi,

In VBA heb ik een recordset gemaakt, de records van deze recordset wil ik exporteren naar Excelformaat.

Kan dat, zo ja hoe gaat dat het snelst?

Bedankt alvast!

 

[jaminon]

Kijk eens in de help functie bij Acces bij:

DoCmd.OutputTo acOutputTable, "Employees", _
acFormatRTF, "Employee.rtf", True

hiermee moet het in principe lukken.

JJ

 

[jvsoest]

Hallo,

Bedankt voor je reactie.

Geldt dit ook voor:

Set db = CurrentDb
Set rst = db.OpenRecordset("tblbronbestanden")

deze recordset moet naar Excel!

 

[Bartuls]

Nee, dit werkt wel:

Dim db As Database
Dim qd As QueryDef

Set db = CurrentDb()
Set qd = db.CreateQueryDef("qryTemp", "SELECT * FROM Employees")

DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLS, "C:\KanWeg.XLS", True

Set qd = Nothing
db.QueryDefs.Delete "qryTemp"
Set db = Nothing

 

[jvsoest]

OK, bedankt, kan ik wat mee!!