CVS auf aktuellem Desktop speichern
30.08.2005 08:47:47
Gisela
mit nachfolgendem Makro erstelle ich eine CSV-Datei. Das funktioniert auch. Mein Problem besteht allerdings darin, dass die CSV-Datei jeweils auf dem aktuellen Desktop abgelegt werden soll. Die Excel-Datei mit den enthaltenen Daten wird von mehreren Mitarbeitern in einem gemeinsamen Ordner verwaltet.
Wie muss ich den Pfad ändern, damit das funktioniert?
Sub csvkonvert()
Sheets("Prov").Select
Columns("L:L").Copy
Workbooks.Add
Application.DisplayAlerts = False
ActiveSheet.Paste
Range("A1").Delete Shift:=x2Up
Sheets(Array("Tabelle2", "Tabelle3")).Select
Sheets("Tabelle2").Activate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
ChDir "C:\Dokumente und Einstellungen\XXXXX_F\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\XXXXX_F\Desktop\NeuProv.csv", _
FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
ActiveWorkbook.Close
End Sub
Herzlichen Dank für jede Hilfe
Grüße
Gisela
Anzeige