Læs- og skriv til tekst fil i Office 2K makro

Denne kode skriver indholdet af tre celler til en fil:

Dim wshNetwork
    Dim Var1 As String
    Dim Var2 As String
    Dim Var3 As String
   
     
    Var1 = Range("A1")
    Var2 = Range("A2")
    Var3 = RanGe("A3")
   
    Filnavn = "c:\filnavn.txt"
    Open Filnavn For Append As #1
        Write #1, Var1; Var2; Var3;
        Close #1

Denne kode læser information igen og lagreder den i variable:

Filnavn = "c:\" & Bruger & ".txt"
    Open Filnavn For Input As #1
    Do While Not EOF(1)
        Input #1, var1, var2, var3
    Loop
    Close #1

Sorry, den sidste kodes første linie skal naturligvis være

Filnavn = "c:\filnavn.txt"

Jøsses du er da for sej!

Tusinde tak og 30p til dig!

Velbekomme!