schrijven naar tekst file vanuit VBA (Excell)

[anoniem]

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

[anoniem]

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

[anoniem]

[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.

[anoniem]

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

[anoniem]

Bedankt allemaal! Dit is precies wat ik zocht. Groeten, Wouter