Beste alle,
Ik wil naar een txt of csv bestand schijven.
Iedere keer dat het Excel bestand wordt geopend moet hij tijd en username wegschijven.
Dat doet onderstaande routine maar hij overschijft en voegt geen regel toe.
Wat doe ik verkeerd ofwel hoe zorg ik ervoor dat de laatste gegevens of bovenaan of onderaan worden geschreven.
Thanks voor het meedenken.
Ronald
Ik wil naar een txt of csv bestand schijven.
Iedere keer dat het Excel bestand wordt geopend moet hij tijd en username wegschijven.
Dat doet onderstaande routine maar hij overschijft en voegt geen regel toe.
Wat doe ik verkeerd ofwel hoe zorg ik ervoor dat de laatste gegevens of bovenaan of onderaan worden geschreven.
Thanks voor het meedenken.
Ronald
Code:
Public Sub Schrijf_Log()
Dim myLog As String
myLog = "C:\Users\" & Environ("Username") & "\My Files\Google Drive\My Drive" & "\logbestand.csv"
Open myLog For Output As #1
Print #1, Now, Environ("Username")
Close #1
End Sub