VBA-Code ändern (vorhandenen Speicherpfad nutzen)
Wolfango
vor einiger Zeit habe ich über dieses Forum den untenstehenden VBA-Code erhalten und auch häufig benutzt.
Es ist für mich eine einfache Art und Weise alte Excel2003-Dateien in das 2010-Format zu überführen.
Leider muss der Speicherpfad innerhalb des Codes immer an den gewünschten Ordner angepasst werden.
Gibt es eine Möglichkeit, den Code so zu modifizieren, das automatisch immer der aktuelle Speicherpfad der Datei genommen wird?
Besten Dank und Gruß,
Wo.
Sub Abspeichern_im_2010Format_dann_schließen()
Dim strWB As String
With ActiveWorkbook
strWB = Left(.Name, InStrRev(.Name, ".") - 1)
.SaveAs _
Filename:="Y:\Desktop\Testq\" & strWB & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
End Sub