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