Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: Naar txt fie schrijven

  1. #1
    Junior Member
    Geregistreerd
    10 april 2020
    Vraag is niet opgelost

    Naar txt fie schrijven

    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

    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

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Maak er dit van:
    Code:
    f.Writeline "Astrid nummer  : " & astridnr & "    " & "Telefoon nummer  " & telefoonnr & "  " & Date
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Junior Member
    Geregistreerd
    10 april 2020

    TOP het werkt

    bedankt ik heb het aangepast en het werkt TOP

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren