Kopie von CSV ablegen
19.05.2021 12:05:49
CSV
eine Kleinigkeit scheint beim Ablegen der CSV-Datei nicht so richtig zu klappen.... und zwar möchte ich gerne dass die CSV so abgelegt wird, dass sie nicht nur in Spalte A steht, sondern wie in der Ursprungsdatei jede Kommatrennung auch eine Spalte ist.
Beim Öffnen wurde es mit dem Local=True realisiert.
Doch wie gelingt das gleiche beim Kopie speichern?
Dankeschön :)
Workbooks.Open Filename:=PathnameCSV & FilenameCSV, ReadOnly:=True, Local:=True 'öffnet die Datei
ActiveSheet.Name = TabnameCSV
'BackUp von CSV
Dim Pfad As String
Dim Dateiname As String
Pfad = "W:\CSV_Backup\"
Dateiname = "Backup_" & FilenameCSV
If Dir(Pfad & Dateiname) = "" Then 'BackUp nicht vorhanden
ActiveWorkbook.SaveCopyAs Pfad & Dateiname
Else
'MsgBox "Backup bereits vorhanden"
End If