.csv Datei mit Tabulator erzeugen
14.10.2004 08:59:39
Heiko
ich möchte eine Excel Datei als .csv Datei abbspeichern. Trennzeichen dabei soll der Tabulator sein. Bisher habe ich ein Semikolon verwendet. (s. Unten)
------------------------------------
sFile = Application.GetSaveAsFilename(InitialFilename:=Pfad & Name & ".csv", _
FileFilter:="CSV-Datei (*.csv), *.csv")
If sFile = False Then Exit Sub
If Dir(sFile) "" Then
msgAntwort = MsgBox("Die Datei '" & sFile & "' besteht bereits. Möchten Sie die bestehende Datei ersetzen?", _
vbQuestion + vbYesNo, "Warnung")
If msgAntwort = vbNo Then Exit Sub
End If
Set Daten = .UsedRange
Close
Open sFile For Output As #1
For Each Zeile In Daten.Rows
For Each Zelle In Zeile.Cells
If Zelle.Column = 1 Then
strTemp = Zelle
Else
If Zelle.Column = 2 And IsNumeric(Zelle) Then
strTemp = strTemp & ";" & Format(Zelle, "hh:mm")
Else
strTemp = strTemp & ";" & Zelle
End If
End If
Next Zelle
Print #1, strTemp
strTemp = ""
Next Zeile
--------------------------------------------
hat jemand ein tip?