Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
332to336
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro Zellbereich als *.csv speichern

Makro Zellbereich als *.csv speichern
09.11.2003 00:19:02
Sascha
Hallo,

möchte gerne einen Zellbereich z.B Worksheets("Januar").Range("C3:G1000") mit Trennung Komma oder Semikolon als *.csv speichern.

Die neue Datei soll im selben Verzeichnis stehen wie die *.xls und wenn sie bereits existiert ohne Nachfrage überschrieben werden.

Der ganze Vorgang sollte im Hintergrund laufen.

Kann mir jemand helfen

Besten Dank im voraus

Mfg

Sascha

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Zellbereich als *.csv speichern
09.11.2003 09:20:25
Josef Ehrensberger
Hallo Sascha,
probier mal dieses Makro.


Sub cvs_datei_exportieren()
Dim zeile As Integer
Dim spalte As Integer
Dim text As String
Dim rng As Range
Set rng = Sheets("Januar").Range("C3:G1000")
Close #1
'Öffnen der Textdatei
Open "text.cvs" For Output As 1
With rng
'Schleife fürZeilen
For zeile = 1 To rng.Rows.Count
text = ""
'Schleife für Spalten
For spalte = 1 To rng.Columns.Count
text = text & CDbl(.Cells(zeile, spalte))
If spalte < rng.Columns.Count Then text = text & ";" 'Trennzeichen = ;
Next
Print #1, text
Next
End With
'Schließen der Textdatei
Close #1
End Sub


Gruß Sepp
Anzeige
kleine änderung!
09.11.2003 09:28:00
Josef Ehrensberger
Hi Sascha,

das Makro mit kleinen änderungen.


Sub cvs_datei_exportieren()
Dim zeile As Integer
Dim spalte As Integer
Dim text As String
Dim rng As Range
'Bereich festlegen
Set rng = Sheets("Januar").Range("C3:G1000")
Close #1
'Öffnen der Textdatei
Open "text.cvs" For Output As 1
With rng
'Schleife fürZeilen
For zeile = 1 To .Rows.Count
text = ""
'Schleife für Spalten
For spalte = 1 To .Columns.Count
text = text & CVar(.Cells(zeile, spalte))
If spalte < .Columns.Count Then text = text & ";" 'Trennzeichen = ;
Next
Print #1, text
Next
End With
'Schließen der Textdatei
Close #1
End Sub


Gruß Sepp
Anzeige
AW: kleine änderung!
09.11.2003 12:21:33
Sascha
Hallo,

besten Dank für die Hilfe.

Leider funktioniert das nicht. Die Datei wird nicht erstellt.

Mfg

Sascha
schreibfehler
09.11.2003 12:27:42
Josef Ehrensberger
Hallo Sascha,

hatte einen kleinen schreibfehler im Code
statt

Open "text.cvs"

muss es natürlich

Open "text.csv"

heisen.

dann sollte daserstellen der Datei klappen (bei mir funktioniert es).

Gruß Sepp
Jo, nur in Eigene Dateien
09.11.2003 12:41:46
Sascha
Hallo,

genial !!! besten Dank.

Das funktioniert super. Hab die Datei gefunden. Sie wird in Eigene Dateien gespeichert.

Wie bringe ich Excel jetzt bei, das sie im gleichen Verzeichnis gespeichert wird wie die *.xls?

Grüße

Sascha


Anzeige
AW: Jo, nur in Eigene Dateien
09.11.2003 12:45:42
Josef Ehrensberger
hi Sascha,

freut mich das es funkt.

ändere die Zeile

Open "text.csv" For Output As 1

ab in

Open ThisWorkbook.Path & "\text.csv" For Output As 1

dann sollte es funktionieren.

Gruß Sepp
Funktioniert, aber
09.11.2003 13:44:46
Sascha
Hallo,

das funktioniert super. Nur leider hat die csv einen Schönheitsfehler.

Es werden bei Deinem Makro 1000 Zeilen mit ; versehen. Die Datei wird zum Seriendruck verwendet. Word erstellt aus den Zeilen mit ; auch einen Serienbrief.

Wie kann ich denn nun dieses problem wieder lössen. Klappt das eine tauchen andere Problem auf. seufz

Trozdem Danke

Mfg
Sascha
Anzeige
AW: Funktioniert, aber
09.11.2003 13:56:38
Josef Ehrensberger
Hi Sascha,

also Word ist nicht das meine.

Wenn das Trennzeichen das problem ist, kannst
du es im Makro ändern.

Ich hab kurz die Serienbrief-Funktion in Word
probiert mit fünf SerienBrief-Feldern
und die wurden Zeilenenweise mit den Werten aus dem
CSV - File gefüllt.

beschreib bitte etwas genauer wo dein Problem liegt - Sepp

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige