Goede Dag,
Mag ik jullie vriendelijk om hulp vragen alstublieft?
ik schrijf de inhoud van 2 cellen excel blad Start J26 en J30 naar een tekst file dit werkt
maar zodra ik de datum er achter wil zetten krijg ik een melding
Typen komen niet met elkaar overeen
ik krijg dit niet voor elkaar
kunnen jullie mij helpen om werkend te krijgen
dit is de code die ik heb
alvast bedankt
Dick
Mag ik jullie vriendelijk om hulp vragen alstublieft?
ik schrijf de inhoud van 2 cellen excel blad Start J26 en J30 naar een tekst file dit werkt
maar zodra ik de datum er achter wil zetten krijg ik een melding
Typen komen niet met elkaar overeen
ik krijg dit niet voor elkaar
kunnen jullie mij helpen om werkend te krijgen
dit is de code die ik heb
Code:
Sub testwegschrijven()
Const ForWriting = 2
Const ForAppending = 8
astridnr = Worksheets("Start").Range("J26")
telefoonnr = Worksheets("Start").Range("J30")
bestand = "G:\Apps\dick\algemeen\radiobutton\filenaam.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(bestand, ForAppending, True)
f.Writeline "Astrid nummer : " + astridnr + " " + "Telefoon nummer " + telefoonnr + " " + Date
End Sub
alvast bedankt
Dick