gemme Excel data i txt fil

luk filen efter et skriv, og åben-append næste gang, start med at skrive et crlf, og så dine data.

Det forstår jeg ikke helt... ved ikke om jeg har forklaret mig forkert...

Jeg vil lave en slags log-fil på de der står i cellerne.

Fandt et eksempel på nettet som jeg kunne sakse sammen:

Sub DataLog()

Const LogFileName As String = "C:\Users\USA\Documents\TEST\Prøve log\TEXTFILE.LOG"
Dim LogData As String
Dim POPL As String, OMS As String, NBS As String
Dim FileNum As Integer
   
FileNum = FreeFile

POPL = Range("A1").Value
OMS = Range("A2").Value
NBS = Range("A3").Value

LogData = POPL & "," & OMS & "," & NBS & "," & Format(Date, "DD-MM-YYYY") & "," & Format(Now, "HH:MM:SS")

Open LogFileName For Append As #FileNum ' creates the file if it doesn't exist

Print #FileNum, LogData ' write information at the end of the text file

Close #FileNum ' close the file


End Sub