TIA Kopfzeile VBkscript erstellen

[ymani]

Zuviel Werbung?
-> 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

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:

If ts.LOF = 0 Then
    ts.LinePrint("Date" & "Material" & "Presure"  & "Temperature" )
End If

Danke im Voraus

 

[Larry Laffer]

Was genau funktioniert denn nicht ?
Außerdem : wo wird der Dateiname und das Verzeichnis zugewiesen (und wie lauten die) ?

 

[ymani]

Zuviel Werbung?
-> Hier kostenlos registrieren

Was genau funktioniert denn nicht ?
Außerdem : wo wird der Dateiname und das Verzeichnis zugewiesen (und wie lauten die) ?

was nicht funktioniert ist, Kopfzeilen in den Excel zu erstellen

hier filename

'set path and file name for archive variables - Pfad und Dateiname festlegen, aus dem die Variablen bei Aufbau des Bildes geladen werden sollen
FileName = "D:\sps\archive.csv"

es wir alles erstellt daten und alles bis die Kopfzeile wird nicht estellt

 

[Larry Laffer]

Dann poste doch mal das Script, in dem du die Kopfzeile schreibst - in deinem ersten Beitrag hast du ja nur die Codezeile drin, nicht aber wo die steht (jedenfalls steht die NICHT in dem Script darüber drin)

 

[ymani]

Dann poste doch mal das Script, in dem du die Kopfzeile schreibst - in deinem ersten Beitrag hast du ja nur die Codezeile drin, nicht aber wo die steht (jedenfalls steht die NICHT in dem Script darüber drin)

alles klar das war mein fehler alles gelöst hier ist die gesammte script
danke für dein aufmerksam Larry

Dim fso, f, field, MyZf, ts

'set path and file name for archive variables - Pfad und Dateiname festlegen, aus dem die Variablen bei Aufbau des Bildes geladen werden sollen
FileName = "D:\Neuer Ordner\archives.csv"



'''''''''''''''''''''''''''''''''''         Write to File         '''''''''''''''''''''''''''''''''''   

'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 Headline if File is new - Erstellen einer Kopfzeile bei neuen Dateien
If ts.LOF = 0 Then
    ts.WriteLine( "Material" & ";" &  "Presure" & ";" & "Temperature" )
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!"

 

[Larry Laffer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ich würde die Headerzeile dort schreiben wo du die Datei erstmalig erzeugst. Dafür müßtest du das Ganze nur etwas umstellen - vielleicht so :

Set ts = f.OpenAsTextStream(8, -2)
    ' mode "8" to append to file

' If no file exists, create a new one -– Datei erstellen, wenn keine vorhanden
If Not fso.FileExists(FileName) Then
   fso.CreateTextFile FileName
   'Write Headline if File is new - Erstellen einer Kopfzeile bei neuen Dateien
    ts.WriteLine( "Material" & ";" &  "Presure" & ";" & "Temperature" )
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

If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
    Err.Clear
    Exit Sub
End If