Excel als CSV am richtigen Ort speichern
15.12.2016 07:58:18
dani
Ich schlage mich einem VBA-Problem herum. Ich kopiere Daten aus einem Excel-File in eine bestehende CSV-Tabelle. Die Tabelle öffne ich per VBA im Ordner der Excel-Datei.
Gespeichert wird die Datei dann aber erstaunlicherweise nicht im selben Ordner (bestehende Datei überschreiben), sondern im Standard-Speicher-Ordner von Excel.
Was muss ich programmieren, damit die CSV-Datei am selben Ort bleibt? Ich kann den Pfad nur mit ThisWorkbook.Path angeben, da der Speicherort der Excel-Datei ändern kann.
Hier der Code:
Sub CSV_Export()
Application.ScreenUpdating = False
'Datei öffnen
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & WB_VPWebshop
Windows(WB_VPWebshop).Activate
ActiveSheet.Unprotect
Cells.Select
Selection.ClearContents
Windows(WB_Meat4You).Activate
Sheets(SH_VPWebshop).Select
Range("a1:b" & ActiveSheet.UsedRange.Rows.Count).Copy
'in anderer Datei einfügen
Windows(WB_VPWebshop).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Rows("2:2").EntireRow.Select
Selection.Delete
ActiveSheet.Protect
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileFormat:=Excel.xlCSV, Local:=True
ActiveWindow.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Vielen Dank für eure Hilfe
Grüsse aus der Schweiz
Dani Schnider