Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1108to1112
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
Inhaltsverzeichnis

CSV Datei abspeichern ohne diese auch zu öffnen

CSV Datei abspeichern ohne diese auch zu öffnen
Stefan
Hallo,
ich arbeite an einer xls Datei, benötige aber für die Anwendung eine CSV Datei.
Wie kann ich denn eine CSV Datei abspeichern, ohne dass ich die XLS danach wieder öffnen muss? Denn ich habe danach immer die CSV offen.
Grüße udn Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: CSV Datei abspeichern ohne diese auch zu öffnen
10.10.2009 11:48:31
Hajo_Zi
Hallo Stefan,
das ist doch klar, Du speicherst die Datei unter einem anderem Namen. Mit VBA könnte man vielleicht ThisWorkbook.SaveCopyAs machen.

AW: CSV Datei abspeichern ohne diese auch zu öffnen
10.10.2009 12:31:13
Stefan
SChon klar, aber dann ist die xls geschlossen und ich muss diese erneut öffnen.
AW: CSV Datei abspeichern ohne diese auch zu öffnen
10.10.2009 12:35:54
Stefan
Gäbe es ne möglichkeit, dass eine xls als backup in einem bestimmten ordner alle sagen wir 60 sekunden angelegt wird. Dabei müsste natürlich eine aufsteigende Nummer dem Dateinamen hinzugefügt werden.
Bei der 100sten könnte dann auch wieder überschrieben werden... z.B.
Grüße
Stefan
Anzeige
Als CSV speichern
10.10.2009 12:05:21
Backowe
Hi Stefan,
Sub export_CSV()
Dim fileSaveName As String
Dim Trennzeichen As String, Text As String
Dim ZeileMax As Long, SpalteMax As Long, Zeile As Long, Spalte As Long
Close #1
fileSaveName = "J:\Test.csv"
Open fileSaveName For Output As #1
Trennzeichen = ","
ZeileMax = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
SpalteMax = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
For Zeile = 1 To ZeileMax
Text = ""
For Spalte = 1 To SpalteMax
Text = Text & ActiveSheet.Cells(Zeile, Spalte).Value & Trennzeichen
Next Spalte
Print #1, Text = Left(Text, Len(Text) - 1)
Next Zeile
Close #1
End Sub
Gruß Jürgen
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige