15. november 2010 - 17:54
Der er
2 kommentarer og
1 løsning
gemme Excel data i txt fil
Hej
Jeg har nogle celler forskellige steder på et excel ark jeg vil gerne gemme de data der ligger i disse celler som CSV-fil
eks kunne cellerne have følgende indhold:
celle A1 = 45 , celle BC22 = BHA og celle CC34 = 56%
makroen kommer til at køre hvert 10 minut hvor dataen ændre sig så hver gang makroen kører skal tallene altså gemmes som ny linie... hvordan gør jeg det?
15. november 2010 - 19:00
#1
luk filen efter et skriv, og åben-append næste gang, start med at skrive et crlf, og så dine data.
15. november 2010 - 23:29
#3
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
