AW: open-Anweisung
04.03.2019 15:22:51
kuro
Hallo gunnih,
aktuell wird wie unten gezeigt die Date beschrieben. Wenn ich nun aber anstatt ".csv", ".xlsx" als Dateiendung eintrage, erhalte ich beim öffnen der Datei den Fehler das die Dateiendung nicht mit dem Dateiformat übereinstimmt.
path_ziel = ActiveWorkbook.Path + "\EXPORT"
On Error Resume Next
MkDir path_ziel
On Error GoTo 0
If OpenModusAppend Then
filename = Worksheets(tabname_prg).Cells(c_row_file_ges_TIA, c_col_dateiname) 'Filenamen _
Gesamt laden
Else
filename = Worksheets(tabname_prg).Cells(c_row_file_allg, c_col_dateiname) 'Filenamen für _
FText laden
End If
If Len(Trim(filename)) > 0 Then
filename = path_ziel + "\" + filename
On Error GoTo expFTAErr1
If OpenModusAppend Then
Open (filename + ".csv") For Append As #1 ' Datei zur Ausgabe öffnen.
Else
Open (filename + ".csv") For Output As #1 ' Datei zur Ausgabe öffnen.
End If
On Error GoTo 0
tabstart = 10
tabline = 0
Tabname = tabnameHLPFTA 'Datenquelle setzen
Worksheets(tabname_prg).Cells(r_dg_stat + 1, c_dg1) = "Export FTA gestartet !"
If Worksheets(Tabname).Cells(tabstart, 1).Value > 0 Then 'wenn Störtexte erkennbar
Do While Worksheets(Tabname).Cells(tabstart + tabline, 1).Value > 0 'solange Störtexte _
erkennbar
Worksheets(tabname_prg).Cells(r_dg_stat + 1, c_dg2) = tabline
tabcolmax = 1 '24 'Anzahl Spalten bis Text
p_textde = 27 'Start der Textspalten
p_sprache = 0 'Pointer auf Sprache
For tabcol = 1 To tabcolmax
' Statusauswertung
If (Trim(Worksheets(Tabname).Cells(tabstart + tabline, 5)) = "A") Then alrtyp = "Alarm" _
Else alrtyp = "Meldung"
If (Trim(Worksheets(Tabname).Cells(tabstart + tabline, 20)) = "") Then
ausloser = ""
Else: ausloser = Trim(Worksheets(Tabname).Cells(tabstart + tabline, 20))
End If
If (Trim(Worksheets(Tabname).Cells(tabstart + tabline, 21)) = "") Then
auslbit = 0
Else: auslbit = Trim(Worksheets(Tabname).Cells(tabstart + tabline, 21))
End If
'ExportTabelle erzeugen (CSV)
Print #1, Trim(Worksheets(Tabname).Cells(tabstart + tabline, 1)) + ";"; 'Alarmnummer
Print #1, "AlrAllg_" + Trim(Worksheets(Tabname).Cells(tabstart + tabline, 1)) + ";"; ' _
Name
Print #1, Chr(34) + Trim(Worksheets(Tabname).Cells(tabstart + tabline, p_textde)) + Chr( _
34) + ";"; 'Störtext
Print #1, Trim(Worksheets(Tabname).Cells(tabstart + tabline, 2)) + ";"; 'Dafaulttext
Print #1, alrtyp; ";"; 'Alarmtyp
Print #1, ausloser; ";"; 'Auslöser
Print #1, auslbit; ";"; 'Auslösebit
Print #1, "" + ";";
Print #1, "0" + ";";
Print #1, "" + ";";
Print #1, "0" + ";";
Print #1, "" + ";";
Print #1, "True" + ";";
Print #1, "" + ";";
Next tabcol
tabline = tabline + 1
If Worksheets(Tabname).Cells(tabstart + tabline, 1).Value > 0 Then Print #1, ""
Loop
Worksheets(tabname_prg).Cells(r_dg_stat + 1, c_dg1) = "Export FTA beendet !"
Else
fehler = True
Worksheets(tabname_prg).Cells(r_dg_stat + 1, c_dg1) = "Fehler: HlpFTA enthält keine Daten !" _
End If
Print #1, ""
Close #1