Variabele Laufwerksbezeichnung
Anton
Ich speichere mittels Makro eine Datei in verschiedene Versionen, bzw. in ein freies Format.
Da die Datei u.U. auch auf einem USB-Stick geöffnet wird, ändert sich auch das Laufwerk.
Gibt es eine Möglichkeit die Laufwerksbezeichnung Variabel zu gestalten? Also nicht B:\ sondern eben
das Laufwerk von dem aus ich die Datei geöffnet habe.
Vielen Dank im Voraus
PS so sieht mein aufgenommenes Script aus.
Sub Sichern()
Application.DisplayAlerts = False
ChDir "B:\_Test"
ThisWorkbook.CheckCompatibility = False
ActiveWorkbook.SaveAs Filename:= _
"B:\_Test\Hallo.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = False
ChDir "B:\_Test"
ThisWorkbook.SaveAs Filename:= _
"B:\_Test\Hallo.ods", FileFormat:= _
xlOpenDocumentSpreadsheet, CreateBackup:=False
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"B:\_Test\Hallo.xlsb", FileFormat:=xlExcel12, _
CreateBackup:=False
End Sub
Anzeige