CSV mit Komma



Excel-Version: Ab 8.0
nach unten

Betrifft: CSV mit Komma
von: Vilim
Geschrieben am: 25.06.2002 - 16:30:32

Ich benutze folgendes Makro um eine Excel-Tabelle als CSV mit Komma als Delimiter und " als Texterkennung (habe nur Alpha-Felder) zu speichern.

Sub CSV_mit_Komma()
'
Dim TB As Worksheet
Dim TMP$, ExePath
Dim Hex1 As String
Dim z%, s%
ExePath = Application.GetSaveAsFilename
Set TB = ActiveSheet
Open ExePath For Output As #1
Hex1 = Chr(34)
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & Hex1 & CStr(TB.Cells(z, s).Text) & Hex1 & ","
Next s
Print #1, TMP
TMP = ""
Next z
Close 1
End Sub


Leider erzeugt es nach dem letzten Feld eines jeden Datensatzes auch noch mal ein Komma. Wie kann ich dieses Komma am Ende das Datensatzes unterbinden?


nach oben   nach unten

Re: CSV mit Komma
von: Alf
Geschrieben am: 25.06.2002 - 16:41:46

Füge vor dem Print#1 ein:

TMP = Left(TMP, Len(TMP) - 1)

Ciao
Alf

nach oben   nach unten

Re: CSV mit Komma
von: Vilim
Geschrieben am: 25.06.2002 - 16:43:56

Danke!

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "statt ausschneiden Kopieren"