Hallo,
ich will eine Excel-Tabelle in eine ganz einfache Textdatei konvertieren - aber vielleicht doch nicht so einfach, denn die Feld-Trennzeichen sollen keine ,; oder Tabs sein sondern der Vertikalstrich |
Die Lösung über Word-Datei mit Suchen/Ersetzen hab ich schon, ich suche einen direkten Weg.
eGruß
Knut
Du könntest ein Makro verwenden, das die Trennzeichen umsetzt:
Sub Makro1()
Dim MerkName, MerkFormat, Tmp As String, Res As String, I As Long, Ch As String * 1
Const InpFile = „TTT.TMP“, OutpFile = „TTT.TXT“, TempDir = „C:\TEMP“
ChDir TempDir
MerkFormat = ActiveWorkbook.FileFormat
MerkName = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs FileName:=InpFile, FileFormat:=xlTextWindows
Open InpFile For Input As #1
Open OutpFile For Output As #2
Do While Not EOF(1)
Line Input #1, Tmp
Res = „“
For I = 1 To Len(Tmp)
Ch = Mid$(Tmp, I, 1)
If Asc(Ch) = 9 Then
Res = Res & „|“
Else
Res = Res & Ch
End If
Next I
Print #2, Res
Loop
Close #1
Close #2
Kill MerkName
ActiveWorkbook.SaveAs FileName:=MerkName, FileFormat:=MerkFormat
Kill InpFile
End Sub
Reinhard