Export CSV Makro
04.05.2019 13:55:25
Dani
Vorab mein aktuelles Makro:
Sub ExportCSV()
strdatei = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
strpath = "C:\Users\dg\Desktop\WS Test Drenush"
Sheets("Export CSV").Activate
ActiveSheet.Copy
ActiveSheet.SaveAs Filename:=strpath & strdatei, FileFormat:=xlCSV, Local:=True
ActiveWorkbook.Close SaveChanges:=False
Sheets("Start").Select
End Sub
Wie es der Titel schon vermuten lässt, möchte ich gerne ein bestimmtes Blatt an einen definierten Ort exportieren. Das ganze funktioniert auch schon fast wie gewünscht.
Jedoch habe ich aktuell das Problem das die CSV Datei nicht in den Ordner WS Test Drenush gespeichert wird sondern auf den Desktop. Ebenfalls wird der Name der Datei als WS Test Drenush+(entsprechender Filename). csv ausgegeben.
Sprich es nimmt den letzten teil des Pfades zum Filenamen dazu, was es jedoch nicht soll.
Kann mir jemand helfen dies zu beheben?
Besten Dank
Lg Dani
Anzeige