eksport af celleværdier til 'logfil'

Public Sub GemTilLog()
Dim Linie As Variant
For Each C In Range("F4:CT4").Cells
Linie = Linie & C & ";"
Next
Linie = Left(Linie, Len(Linie) - 1)
Open "C:\test.log" For Append As #1
  Print #1, Linie
Close #1

End Sub

hvis vi kalder filen CSV til sidst kan excel åbne den direkte.
du skal bare vælge 'Tekstfiler (*.prn;*.txt;*.csv)' i filtyper

Public Sub GemTilLog()
Dim Linie As Variant
For Each C In Range("F4:CT4").Cells
Linie = Linie & C & ";"
Next
Linie = Left(Linie, Len(Linie) - 1)
Open "C:\Log.csv" For Append As #1
  Print #1, Linie
Close #1

End Sub

hej kabbak,
det ser godt ud. jeg tester en af dagene.

Hej Kabbak,

Undskyld den lange ventetid, men der er gået huskøb og sommer i den. Nu har jeg testet, og det er som sædvaneligt kvali-vare du har leveret. Smid et svar så er der point på vej.

Er det muligt at lave en rutine som 'venter' og prøver igen efter f.eks 1 min hvis log.csv er optaget for læsning ? (a: så arket som laver loggen ikke 'stopper' og b: så jeg ikke midster data hvis der ikke kan skrives til filen?

Tilykke med købet, og så et svar. ;-))

Kører loggen da hele tiden, eller er der flere brugere, siden du måske både læser og skriver samtidigt. ?

Arket som laver loggen står og køre automatisk - det opdatere hver 30 min. Loggen skal læses jævnligt (flere gange om dagen) og jeg er bange for sammenfald ie filen er optaget.

Public Sub GemTilLog()
On Error GoTo Fejl
Dim Linie As Variant
For Each C In Range("F4:CT4").Cells
Linie = Linie & C & ";"
Next
Linie = Left(Linie, Len(Linie) - 1)
Open "C:\Log.csv" For Append As #1
  Print #1, Linie
Close #1
Fejl:
If Err = 70 Then ' 70 er fejlkoden når filen er ibrug
Application.OnTime Now() + TimeValue("00:01:00"), "GemTilLog" ' prøver om 1 minut igen
End If
End Sub

Det virker - Jeg har endnu ikke fået testet om den klare konflikter - men det plejer jo at virke når det kommer fra dig. Så point er på vej.

Tak for hjælpen.

tak for point. ;-))