Уважаемые форумчане, подскажите пожалуйста способ сделать так, что бы при выборе файла всегда открывался корень диска D.

Скрытый текст
sPath1C = Application.GetOpenFilename("Файлы Excel (*.xlsx*),*.xlsx*", 1, "Выберите файл с данными", , False)

И при нажатии на кнопку Сохранить, файл сохранялся не рядом с Шаблон.xlsm, а по указанному пути, например "E:\Прайс.xlsx"

Скрытый текст

Sub SavePrice() Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next With ThisWorkbook    .Worksheets("SMT").Copy    ActiveWorkbook.Worksheets(1).DrawingObjects.Delete    ActiveWorkbook.SaveAs Filename:=.Path & Application.PathSeparator & "Прайс.xlsx", _        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End With Application.ScreenUpdating = True End Sub