Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

CSV-Export???

0 views
Skip to first unread message

Claudius Sailer

unread,
Mar 20, 2000, 3:00:00 AM3/20/00
to
Ich habe heute einen manuellen CSV-Export auf einem PC gemacht (Excel
97) und da waren als Trennzeichen ; verwendet. Gleichzeitig habe ich das
Ganze aufgezeichnet (Makro). Das Ergebnis nach dem wieder abspielen des
makros brachte fuer mich ueberraschendes hervor. Als Trennzeichen war
auf einmal ein Komma verwendet worden.
Fuer mich sit das unlogisch. Ist CSV im Programm ein anderes als im
Makro? Ich habe hier die englische Version von Excel unter einem
englischen WinNT laufen!!!
Zur Klarstellung CSV und ; ist meiner Meinung nach falsch da CSV ja
Comma Seperatet heisst (dachte ich bisher), aber im vorliegenden Fall
wollte ich ; als Trennzeichen haben ;-))

Claudius

Ullrich Schwarz

unread,
Mar 20, 2000, 3:00:00 AM3/20/00
to
Hallo Claudius.

ausführliche Infos zum Thema siehe Frank Arendt-Theilen im Thread
"Speichern unter... (CSV-Export)" vom 17.3.2000.

MfG Ullrich


Claudius Sailer <Clau...@sailer-online.de> schrieb in im Newsbeitrag:
1e7t5zh.1scklp0igfk74N%Clau...@sailer-online.de...

Frank Arendt-Theilen

unread,
Mar 21, 2000, 3:00:00 AM3/21/00
to
Hallo Claudius,
als ergänzung zum Beitrag von Ullrich Schwarz, hier eine Möglichkeit
eine CSV-Datei per Makro zu erstellen und per Makro wieder verlustfrei
zu öffnen:

1) Speichern:
Sub PrintCSV()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Const Pfad As String = "Dein\Pfad"
Const Dateiname As String = "NeuerDateiname"
Const Extension As String = ".CSV"
Const Trennzeichen As String = ";"
Set Bereich = ActiveSheet.UsedRange
Open Pfad & Dateiname & Extension For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, ";") > 0 Then
'Zellen, die ein Semikolon beinhalten in Anführungsstriche setzen
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & Trennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & Trennzeichen
End If
Next
Print #1, strTemp
strTemp = ""
Next
Close #1
End Sub

2) Öffnen:
Sub OpenCSV()
Workbooks.Open FileName:="Lw:\Pfad\Datei.CSV"
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Mon, 20 Mar 2000 21:03:13 +0100, schrieb Clau...@sailer-online.de
(Claudius Sailer) in microsoft.public.de.excel zu "CSV-Export???":

0 new messages