Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

schrijven naar tekst file vanuit VBA (Excell)

elloco
4 antwoorden
  • Hoi,

    Ik wil graag vanuit VBA (Excell) naar een tekst bestand schrijven. Ik dacht dat ik hiervoor en streamwriter nodig had, maar die kan ik niet vinden. Weet iemand of dit uberhaupt mogelijk is en zo ja, hoe?

    Groeten,
    Wouter
  • Wouter,
    Kijk hier eens na. Ik denk dat dit genoeg voor je is als beginpunt.


    Sub get_ado_ver()
    Dim fver
    Dim fso
    Dim fl
    Dim luser
    Dim WSHNetwork
    Dim Compname
    fver = CreateObject("adodb.connection").version
    'Get user filename
    Set WSHNetwork = CreateObject("WScript.Network")
    luser = WSHNetwork.UserName
    Compname = WsHNetwork.Computername
    Set WSHNetwork = Nothing
    'Create a filesystem object to write someting to
    Set fso = CreateObject("Scripting.Filesystemobject")
    Set t = fso.CreateTextFile((serv_path & "" & luser & ".txt"), True)
    t.WriteLine ("Versie Ado : " & fver)
    t.Writeline ("Compname : " & Compname )
    t.Writeline ( "User : " & luser )
    t.Close
    Set t = Nothing
    Set fso = Nothing
    End Sub


    Jan Willem
  • [quote:3da215029c="elloco"]Hoi,

    Ik wil graag vanuit VBA (Excell) naar een tekst bestand schrijven. Ik dacht dat ik hiervoor en streamwriter nodig had, maar die kan ik niet vinden. Weet iemand of dit uberhaupt mogelijk is en zo ja, hoe?

    Groeten,
    Wouter[/quote:3da215029c]

    Dat gaat heel simpel:
    [code:1:3da215029c]
    Sub Schrijf()

    Open "C:\Temp\Output.txt" For Output As #1
    Print #1, "Tekst"
    Close #1

    End Sub
    [/code:1:3da215029c]
    Hierbij geldt: "C:\Temp\Output.txt" is de naam van het tekstbestand waar je je gegevens in kwijt wilt, en "Tekst" is de tekst die moet worden weggeschreven.
  • iets fraaier is nog

    f=freefile
    Open "C:\Voorbeeld.txt" For Output As #f
    <schrijfacties>
    Close #f

    hiermee voorkom je een fout als #1 om wat voor reden dan ook al geopend is

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.