Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CVS auf aktuellem Desktop speichern

CVS auf aktuellem Desktop speichern
30.08.2005 08:47:47
Gisela
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CVS auf aktuellem Desktop speichern
30.08.2005 08:56:29
ramses
Hallo
Das sollte ausreichen
"C:\Dokumente und Einstellungen\" & Environ("Username") & "\Desktop\NeuProv.csv",
um den aktuellen Desktop zu finden.
Gruss Rainer
Vielen Dank Rainer, funktioniert super, o.T.
30.08.2005 09:16:55
Gisela
o
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige