Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige