Excel als TXT mit Semikolon
16.06.2016 16:27:48
Thomas
wir haben bisher immer einer TXT Datei aus einer Exceldatei per Makro erstellen. Hier wurden die gefüllten Zellen per Semikolon getrennt.
Nun ist es aber so das im Programm welche dann die Datei importieren soll, eine Änderung notwendig geworden ist. Es müssten nun auch leere Zellen mit einem Semikolon eingetragen werden.
BSP:
Daten sind in den Spalten A1-K1, wobei B1 + C1 z. Bsp. leer sind. Die Textdatei müsste nun also folgenden Inhalt haben.
WertA1;;;WertD1;WertE1;WertF1;WertG1;WertH1;WertI1;WertJ1;WertK1
Mit dem bisherigen Makro hatten wir nur
WertA1;WertD1;WertE1;WertF1;WertG1;WertH1;WertI1;WertJ1;WertK1
Hier benötige ich bitte Unterstützung.
Vielen Dank.
Gruß, Tom
Sub txt_mit_Trennzeichen()
Dim fso As Object
Dim txt As Object
Dim z As Integer
Dim s As Integer
Dim temp As String
Dim TextDatei ' "" Then temp = temp & Cells(z, s) & ";"
Next s
If temp "" Then
txt.writeline temp
temp = ""
End If
Next z
Set fso = Nothing
Set txt = Nothing
MsgBox "Die Textdatei wurde erstellt"
End Sub