xls nach CSV speichern als xls offenlassen
14.03.2013 10:39:07
Ludicla
ich benutze den folgenden Code um aus einer xls-Datei mit mehreren Blättern
aus dem aktiven Tabellenblatt eine CSV im gleichen Pfad mit bestimmten Namen
abzuspeichern.
Nach dem Code sind die CSV und die XLS geschlossen.
Wie müßte ich den Code ändern damit die XLS offenbleibt oder wieder geöffnet wird ?
Private Sub CommandButton2_Click()
datum = Format(Now(), "dd.mm.yy hh-mm") 'Datum mit Tag.Monat.Jahr Stunde-Minute
Pfad = ActiveWorkbook.Path 'Pfad = Pfad der aktiven Datei
Datei = "\CSV-Mengen und Werte für Upload " & "Periode " & Range("D2") & " am " & datum & ".csv" _
'Dateiname = BCS-Upload.csv
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.SaveAs Filename:=Pfad & Datei, FileFormat:= _
xlCSV, CreateBackup:=False, local:=True
MsgBox "Der Upload wurde erfolgreich unter '" & Pfad & "' gespeichert."
ActiveWorkbook.Close savechanges:=False
End Sub
Vielen Dank für euer Bemühen.
Gruss Ludicla