geöffente Datei überschreiben
13.06.2018 08:43:52
Sait
ich habe etliche Versuche gestartet und es schien auch anfangs zu funktionieren. Leider ist mein Prozess aber nicht stabil.
Ich habe 4 aus SAP erstellte *.xls Dateien welche in 4 verschiedene Ordner abgespeichert werden. Ich muss jede Datei öffnen, Leerzeichen entfernen und dann am besten im gleichen Ordner mit gleichem Namen wieder als *.xls Datei abspeichern.
Mein Makro funkt. mal einwandfrei und mal überschriebt er die Datei nicht und speichert stattdessen die Datei in meinem Dokumente Ordner. Ich verstehe aber nicht warum.
Gibt es eine variable Lösung, dass das Makro die geöffnete Datei im gleichen Ordner einfach überschreibt?
Vielen Dank vorab!
Mein Makro:
Sub Datei_ueberschreiben()
Application.DisplayAlerts = False
Columns("B:B").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveWorkbook.SaveAs
ActiveWorkbook.SaveAs _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub