Программно сохранить книгу в нужную папку

[uralshans]

Вечер добрый!
Такая ситуация:
Книга в которой работаю находится на флешке К:\Списание\Книга.xlsm
Составляю документ в этой книге, сохраняю эту книгу, затем "сохраняю как" в папке:
К:\Списание\xlsm\№1001_от_10.03.201 3.xlsm
Закрываю открывшуюся книгу №1001_от_10.03.2013.xlsm
Открываю Книга.xlsm
Составляю документ в этой книге, сохраняю эту книгу, затем "сохраняю как" в папке:
К:\Списание\xlsm\№1002_от_12.04.201 3.xlsm
И так далее... сохраняю файлы вида №1002_от_12.04.2013.xlsm с поддержкой макроса (это обязательно)
Как это сделать программно?
Чтоб сохранившейся файл (книга) №1002_от_12.04.2013.xlsm не открывалась после сохранения, а основная Книга.xlsm (где составляю документы) не закрывалась..

Кстати название №1002_от_12.04.2013.xlsm формируется из ячеек.

Пока что программно получилось сохранять листы в формате pdf и только в ту папку где находится сама Книга.xlsm.

[EducatedFool]

ActiveWorkbook.savecopyAs "К:\Списание\xlsm\№1001_от_10.03.201 3.xlsm"

[uralshans]

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

ActiveWorkbook.savecopyAs "К:\Списание\xlsm\№1001_от_10.03.201 3.xlsm"

Спасибо, работает!
А если на другом компьюторе флешка не диск К, а диск Е уже..
Можно как нибудь это обойти?

[RAN.]

http://www.planetaexcel.ru/forum/ind...#message156099

[EducatedFool]

А если на другом компьюторе флешка не диск К, а диск Е уже..

вы же в прошлой теме спрашивали, как сохранить файл в ту же папку, где и исходный файл Excel... неужто нельзя сделать по-аналогии?

folder$ = ThisWorkbook.Path & "\xlsm\"
On Error Resume Next: mkDir folder ' на случай, если подпапка ещё не создана
ActiveWorkbook.savecopyAs folder & "№1001_от_10.03.201 3.xlsm"

[uralshans]

EducatedFool
Честно сказать, не силен я в этом деле.. подбираю код методом "тыка" (почти)
Что то получается... что то нет..
Каждый раз узнаю что то новое и записываю себе)
Спасибо!! Заработало так, как хотел! Спасибо!