Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Maktrofehler bei CSV Export

Maktrofehler bei CSV Export
11.03.2003 23:06:17
Udo Gell

Hallo,

ich habe eine Tabelle mit ? Werten. Beim normalen Export der Werte in eine
CSV Datei werden die Daten korrekt mit Komma exportiert. Zeichne ich das
gleiche als Makro auf werden Zahlen mit Komma durch Zahlen mit Punkt
ersetzt.

Anbei das Makro

Sub kopie2()
'
' kopie2 Makro
' Makro am 11.03.2003 von GELL aufgezeichnet
'

'
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\ExelBeispiele\Mappe3.txt", FileFormat:= _
xlText, CreateBackup:=False
ActiveWindow.Close
End Sub

Weiß jemand einen Rat???

Gruß Udo

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Maktrofehler bei CSV Export
12.03.2003 07:51:18
Oliver S.

Hi Udo,

das gleiche Problem hatte ich beim Öffnen von CSV-Dateien über ein Makro. Bei mir wurde nicht das Semikolon als Trennzeichen erkannt, sondern es wurde ein Komma erwartet. Nach langer Suche im Netz bin ich dann auch fündig geworden. Das liegt daran, das Excel beim Öfnnen oder Speichern von CSV-Dateien über ein Makro auf den US-Standard umschaltet und da sind die Trennzeichen halt anders. Ich habe dann folgendes in der Registry eingetragen und danach funktionierte das Makro zum Öffnen der Dateien wieder.

Schlüssel: HKCU\Software\Microsoft\Office\9.0\Excel\Options
Name: VBAAlwaysLoadUS
Typ: DWORD
Wert: 0

Ob dieser Eintrag auch Dein Problem beim Speichern behebt, weiß ich allerdings nicht. Dem Text auf der Seite http://support.microsoft.com/default.aspx?scid=kb;de;509480 zufolge, soll das aber auch beim Speichern von CSV-Dateien den Fehler beheben. Probier es einfach mal aus. Wenn´s nichts bringt, kannst Du den Eintrag ja wieder entfernen.

Ich hoffe, ich habe Dich bei der Lösung Deines Problems ein Stückchen weitergebracht,
Oliver



Anzeige
Re: Maktrofehler bei CSV Export
12.03.2003 09:10:28
RainerJ

Hallo

Es geht auch mit folgendem Makro

Open pfad + datei_name + ".csv" For Output As #1
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"
Next s
Print #1, TMP
TMP = ""
Next z
Close #1
Das läuft dann auch problemlos auf anderen Computern.


Viel Spass

Rainer

Re: Maktrofehler bei CSV Export
12.03.2003 12:19:29
Olli

Hallo Rainer,

funktioniert einwandfrei, ist allerdings furchtbar langsam.

Grüße, Olli

Re: Maktrofehler bei CSV Export
12.03.2003 14:21:59
Udo

Hallo habe es versucht aber das Maktro bricht bei 2. Zeile ab
Dateipfad soll "C:\SAP_export.csv" sein !!
Habe 7 Spalten und 200 Zeilen!!
Muß ich noch irgendwelche Variablen einsetzen??

Gruß Udo

Anzeige
Re: Maktrofehler bei CSV Export
13.03.2003 10:54:07
RainerJ

Hallo

habe was vergessen

Sub test()
Dim TB As Worksheet
Set TB = Worksheets(1)
Open "C:\test.csv" For Output As #1
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"
Next s
Print #1, TMP
TMP = ""
Next z
Close #1

End Sub
jetzt sollte es laufen


Re: Maktrofehler bei CSV Export
13.03.2003 11:01:25
RainerJ

Hallo

noch eine kleine Änderung. Dann läuft es deutlich schneller
Sub test()
Dim TB As Worksheet
Set TB = Worksheets(1)
t = Time
Open "C:\test.csv" For Output As #1
zeile = TB.UsedRange.Rows.Count
spalte = TB.UsedRange.Columns.Count
For z = 1 To zeile
For s = 1 To spalte
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"
Next s
Print #1, TMP
TMP = ""
Next z
Close #1
Sheets(1).Cells(911, 1) = Time - t
End Sub

Viel Spass

Rainer

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige