Voeg onderstaande code toe aan een knop. Dit is een voorbeeld, uiteraard moet je deze code aanpassen aan uw velden van uw database en wat je wil wegschrijven. op basis van naam en voornaam , maak ik in access de bestandsnaam aan. die bestandsnaam gebruik ik om de excel files te openen.
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject(“Excel.Application”)
DoCmd.GoToRecord , , acLast
p = Me.CurrentRecord
DoCmd.GoToRecord , , acFirst
For i = 1 To p
If Dir(“g:\toepassing\presturbo\” & Me.mapnaam) <> “” Then
Set oBook = oExcel.Workbooks.Open(“g:\toepassing\presturbo\” & Me.mapnaam
oExcel.Visible = True
Set oSheet = oBook.worksheets(12)
oSheet.range(“b3”).formulalocal = Me.wachtwoord
Set oSheet = oBook.worksheets(2)
oSheet.range(“c3″).formulalocal = Me.Veld1 & ” ” & Me.Veld2
Set oSheet = oBook.worksheets(8) ‘ pers rechten
oSheet.range(“b3”).formulalocal = Me.recup ‘ recupuren
oSheet.range(“b6”).formulalocal = Me.jaarlijksverlof ‘ verlof
‘….alle nodige velden hier opvullen
oBook.Close True
End If
DoCmd.GoToRecord , , acNext
next i
oExcel.quit