Microsoft Excel

Herbers Excel/VBA-Archiv

csv-Datei an anderem Ort speichern | Herbers Excel-Forum


Betrifft: csv-Datei an anderem Ort speichern von: Peter
Geschrieben am: 14.01.2010 15:46:52

Hallo

Mit nachstehendem Code kreiere ich eine csv-Datei (Semikolon-separated)
Nach Erstellung möchte ich diese noch an einem anderen Ort speichern. Wie geht das?
Die csv-Datei und der aktuelle Pfad sind in der Variable "AWS" abgelegt; der Pfad, wo die Datei zu speichern ist, habe ich in der Variable "SavePathCSV" abgelegt.

Wer kann mir helfen?

Danke, Peter

'AWS wird der Name der Datei mit Pfad zugewiesen, in den die Daten im csv-Format geschrieben werden
AWS = SavePath & "\" & File & ".csv"
'zu versendendes Attachment sichern
DateiNummer = FreeFile
Open AWS For Output As #DateiNummer
Set dBook = ActiveWorkbook
Set dSheet = dBook.ActiveSheet
For zNr = 1 To dSheet.UsedRange.Rows.Count
For sNr = 1 To Sheets(dSheet.Name).Cells(1, 256).End(xlToLeft).Column
TMP = TMP & CStr(dSheet.Cells(zNr, sNr).Text) & ";"
Next sNr
TMP = Left(TMP, Len(TMP) - 1)
Print #DateiNummer, TMP
TMP = ""
Next zNr
'
'Die virtuell geöffnete Datei wird geschlossen.
Close #DateiNummer

  

Betrifft: AW: csv-Datei an anderem Ort speichern von: fcs
Geschrieben am: 14.01.2010 18:18:01

Hallo Peter,

nach der Zeile

  Close #DateiNummer


   VBA.FileCopy AWS, SavePathCSV & "\" & File & ".csv"

Gruß
Franz


  

Betrifft: AW: csv-Datei an anderem Ort speichern von: Peter
Geschrieben am: 14.01.2010 22:19:30

Hallo Franz
Das hat so auf Anhieb geklappt.
Vielen Dank und Gruss, Peter


Beiträge aus den Excel-Beispielen zum Thema "csv-Datei an anderem Ort speichern"