[Excel 2003] eigenens Ausgabeformat definieren

Computer: Software & Programmierung Office Software
1

Hallo Leute.
Kann man mit EXCEL-Mitteln ein eigenes Ausgabeformat definieren ( analog csv ). Grund der Anfrage: ich möchte u.a. eigene Spaltenbegrenzer und Texte in Hochkomma ausgeben.

Gruss
DiBo

2

Kann man mit EXCEL-Mitteln ein eigenes Ausgabeformat
definieren ( analog csv ). Grund der Anfrage: ich möchte u.a.
eigene Spaltenbegrenzer und Texte in Hochkomma ausgeben.

Hi DiBo,
soweit ich weiß geht das nicht mit Excelbordmitteln.

Probier mal dieses:

Option Explicit
'
Sub ausgabe()
Dim Zei As Long, Spa As Integer, Satz As String
Dim SB As String, TB As String
TB = "'" 'Textbegrenzer
SB = Chr(9) 'Spaltentrenner Tab
Close
Open "c:\test\meinedatei.txt" For Output As #1
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
 Satz = ""
 For Spa = 1 To Cells(Zei, Columns.Count).End(xlToLeft).Column
 With Cells(Zei, Spa)
 If IsNumeric(.Value) Then
 Satz = Satz & SB & .Value
 Else
 Satz = Satz & SB & TB & .Value & TB & SB
 End If
 Satz = Left(Satz, Len(Satz) - Len(SB))
 End With
 Next Spa
 Print #1, Satz
Next Zei
Close
End Sub

Gruß
Reinhard

3

Hallo Reinhard.

Genau das was ich gesucht habe.

Danke und Gruss
DiBo