-> Hier kostenlos registrieren
Hallo liebe Erfahrner,
ich möchte in diesem Code eine Excel Kopfzeile aus meiner variablen erstellen, ich hatte mit dem Befehl (unten) versucht, aber klappt nicht
Befehl:
Danke im Voraus
ich möchte in diesem Code eine Excel Kopfzeile aus meiner variablen erstellen, ich hatte mit dem Befehl (unten) versucht, aber klappt nicht
Code:
Dim fso, f, ts
'Catch errors -- Fehler abfangen
On Error Resume Next
'Create object -- Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
' If no file exists, create a new one -– Datei erstellen, wenn keine vorhanden
If Not fso.FileExists(FileName) Then
fso.CreateTextFile FileName
End If
Set f = fso.GetFile(FileName)
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Set ts = f.OpenAsTextStream(8, -2)
' mode "8" to append to file
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
' Write new set of values into file -- Neue Werte in die Datei schreiben
ts.WriteLine(Material & ";" & Pressure & ";" & Temperature)
'Tidy up -- Aufraeumen
ts.Close
Set f = Nothing
ShowSystemAlarm "Storage of the data was successful!"
Befehl:
Code:
If ts.LOF = 0 Then
ts.LinePrint("Date" & "Material" & "Presure" & "Temperature" )
End If
Danke im Voraus