Live-Forum - Die aktuellen Beiträge
Datum
Titel
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?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abspeichern CSV, Problem

Abspeichern CSV, Problem
16.08.2006 11:19:54
Stefan
Hallo zusammen,
ich habe mal wieder ein Problem und benötige eure Hilfe :)
Ich speichere eine Datei im csv Format mittels nachfolgendem Macrocode:
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\xxx\DPD.csv", _
FileFormat:=xlCSV, CreateBackup:=False
Leider wird die Datei nicht so gespeichert, wie es sein soll. Anbei 2 Dateien
DPD.csv (so wirft mit das Macro die Datei aus)
DPD-korrekt.csv (so soll es sein, normal über Excel aus der selben Datei gespeichert).
Weiss da jemand Rat?
https://www.herber.de/bbs/user/35852.zip
Liebe Grüße
Stefan

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abspeichern CSV, Problem
16.08.2006 11:41:27
Hans
Hallo Stefan,
aufgrund der versionsabhängigen Excel'schen Verhaltensweisen bei Text-Ex- und Importen bevorzuge ich das Einlesen in Textdateien, im konkreten Fall etwa:

Sub TextSpeichern()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
sFile = "c:\temp\test.csv"
Close
Open sFile For Output As #1
For iRow = 1 To Range("A1").CurrentRegion.Rows.Count
For iCol = 1 To Range("A1").CurrentRegion.Columns.Count
sTxt = sTxt & Cells(iRow, iCol).Text & ";"
Next iCol
Print #1, Left(sTxt, Len(sTxt) - 1)
sTxt = ""
Next iRow
Close
End Sub

gruss hans
Anzeige
AW: Abspeichern CSV, Problem
16.08.2006 11:46:01
Stefan
Hallo Hans,
vielen Dank für die Antwort.
Mein Problem ist leider, das ich die exportierte Datei an einen Kunden weitergeben muss. Und dieser soll selbstverständlich nicht erst ein umständliches Makro installieren müssen.
Ich brauche die Ausgabe-Datei so, wie es in DPD-korrekt dargestellt ist.
Leider bin ich net so VBA bewandert um genau sehen zu können, was dein Code macht.
Liebe Grüße
Stefan
AW: Abspeichern CSV, Problem
16.08.2006 11:58:54
Hans
Hallo Stefan,
was interessiert es Deinen Kunden, wie die Datei exportiert wurde? Es wird ihr nicht anzumerken sein.
Eine Möglichkeit der CSV-Speicherung über VBA mit Semikoli ist mir nicht bekannt.
gruss hans
Anzeige
AW: Abspeichern CSV, Problem
16.08.2006 12:05:31
Stefan
Hallo Hans,
ich bitte vielmals um Entschuldigung ;)
Hatte den Sinn des Scriptes anfangs nicht begriffen. Nun ist aber alles klar, hab es eingebaut und läuft bestens.
Sorry für die blöde Nachfrage
Gruß und schönen Tag
Stefan
AW: Abspeichern CSV, Problem
16.08.2006 11:55:41
Stefan
Hallo Hans,
manchmal sollte man einfach mal probieren, anstatt direkt zu fragen ;)
Habs mal eingebaut, und den Sinn denk ich verstanden!
Klappt auch wunderbar, danke dir!
Stefan

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige