Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei speichern als csv mit Makro anderst ?

Datei speichern als csv mit Makro anderst ?
31.01.2007 13:10:19
Rainer
Hallo,
ich habe eine ExcelDatei, die ich als CSV speichere,
dies wird wenn ich das von Hand Mache auch absolut korrekt.
Die CSV Datei wird von Strichpunkten getrennt.
Das ganze habe ich als Makro aufgezeichnet, wenn ich nun
das Makro ausführe speichert er mir die Datei als CSV,
allerdings mit Kommata getrennet.
Zum Speichern nimmt das MAkro folgenden Befehl:
Workbooks.Open Filename:= _
"X:\Allgemein\fuer_kp\Statistiken\02_Warengruppenstatistik.xls"
ActiveWorkbook.SaveAs Filename:= _
"X:\Allgemein\fuer_kp\Statistiken\csv\02_Warengruppenstatistik.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close
Wie kann ich erreichen das auch das Makro wieder den Strichpunkt als Trennzeichen nimmt ?
Wenn ich das Makro ausführe fragt er mich noch ob ich Die Datei speichern will, wie kann ich diese Frage mit Ja als Standard beantworten ?
Dankke für eure Ideen
MFG
Rainer
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei speichern als csv mit Makro anderst ?
31.01.2007 13:22:25
haw
Hallo Rainer,
schon 1000x gefragt,
in der Recherche findest du z.B.

Sub Export()
Dim iRow As Integer, iCol As Integer
Dim sTxt As String, sSep As String
sSep = Range("G2").Value
On Error GoTo ERRORHANDLER
Close
Open Range("G1").Value For Output As #1
On Error GoTo 0
For iRow = 1 To 5
For iCol = 1 To 5
sTxt = sTxt & Cells(iRow, iCol).Value & sSep
Next iCol
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #1, sTxt
sTxt = ""
Next iRow
MsgBox "Datei wurde angelegt:" & vbLf & Range("G1").Value
End
ERRORHANDLER:
MsgBox "Bitte überprüfen Sie den Verzeichnisnamen!"
End Sub

Gruß Heinz
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige