Как сменить каталог для сохранения файла?

[КаМММ]

Суть проблемы:
Есть файл напичканый макросами.
Он может находиться где угодно. (на рабочем столе, в "Мои документы" или вовсе в сети.)
Он создаёт файл с данными. И этот файл он должен сохранить в заранее прописанный каталог. (Напимер D:/mmm/1/)
Вроде-бы всё просто когда к имени файла добавляем впереди путь каталога. (Но тогда пользователь не может изменить название файла и место куда его сохранять)

ИмяНаряда = №Заказ & " от " & Дата & " " & Заказчик & " " & Менеджер & ".xls"  
Name = Application.GetSaveAsFilename(ИмяНаряда, FileFilter:=Filt, Title:="Сохранение Данных в файл!")

Как сделать сохранение в заранее прописанный каталог. (но при этом пользователь если ему понадобится мог выбрать другой каталог сам)
Использовать "ChDir Путь" почему-то не получилось.
Каталог по умолчанию при этом менять нельзя.

[EducatedFool]

Вроде-бы всё просто когда к имени файла добавляем впереди путь каталога. (Но тогда пользователь не может изменить название файла и место куда его сохранять)

Не понял. Насколько я знаю, Application.GetSaveAsFilename возвращает полный путь к файлу, и пользователь может выбрать любую папку для сохранения файла.

Использовать "ChDir Путь" почему-то не получилось.

Вводим строку ChDir в поле поиска, и обнаруживаем, что предварительно в некоторых случаях надо использовать команду ChDrive
http://www.programmersforum.ru/showp...11&postcount=5

[КаМММ]

Сообщение от EducatedFool

Не понял. Насколько я знаю, Application.GetSaveAsFilename возвращает полный путь к файлу, и пользователь может выбрать любую папку для сохранения файла.

Тут всё правильно.
Я немного не правильно выразился. В первой части я имел в виду сохранение файла функцией ActiveWorkbook.SaveAs
Эта функция сохранит файл туда, куда надо, если правильно прописан путь.
А вот от функции Application.GetSaveAsFilename я хотел добиться, чтобы она открывалась в том каталоге, который я задаю, а не тот который мне Эксель сам предлагает.
Так-что ваш совет про смену диска наверно какраз то, что мне нужно.
Осталось сообразить, как объяснить программе какая часть записи является катологом, а какая диском. (для обычного диска всё понятно, название диска это то, что перед двоеточием)
Что считать диском, если ссылка идёт на сетевую папку?
Например \\Klimat-server\менеджеры\расчет воздуховодов\1\

[SAS888]

Как сделать сохранение в заранее прописанный каталог. (но при этом пользователь если ему понадобится мог выбрать другой каталог сам)

Предлагаю вместо Application.GetSaveAsFilename использовать метод Application.FileDialog. Вашу задачу можно решить так:

Sub Сохранение()
    Dim Name As String, ИмяНаряда As String, myPath As String
    ИмяНаряда = "Имя файла" 'Предлагаемое для сохранения имя файла
    myPath = "D:\My\"       'Предлагаемый для сохранения путь
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = myPath & ИмяНаряда
        .Title = "Сохранение Данных в файл!"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        Name = .SelectedItems(1)
    End With
End Sub

Откроется окно с предложением сохранить файл по указанному пути и с указанным именем. После выполнения этого кода, переменная Name будет содержать выбранный путь и имя файла.
P.S. Чтобы избежать возможных неприятностей, не советую использовать переменные с именами, которые Excel использует, например, в качестве метода (в данном случае - это Name).

[КаМММ]

Проверил. Это какраз то, что мне и требовалось.
Пасибо всем за помощь.