Hi! I want to create Excel files every time an Access Database is populated so I can later on repopulate the database with any of the saved Excel files.
I'm a junior programmer and I'm on my own with this problem. Any suggestions?
Set Rst = New ADODB.Recordset
Rst.Open "rpKortOverzicht", cnAdo, adOpenKeyset, adLockOptimistic
Set xlApp = New Excel.Application
xlApp.Workbooks.Open (App.Path & "\RapportBlank.xlt"
If Val(Mid(xlApp.Version, 1, InStr(1, xlApp.Version, "." - 1)) > 8 Then
With xlApp.Sheets(1)
.Range("A2".CopyFromRecordset Rst
Rst.Close
Set Rst = Nothing
End With
End If Eric De Decker
vbg.be@vbgroup.nl
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.