Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Прошу помощи в макросе на сохранение файла в подпапку / 4 сообщений из 4, страница 1 из 1
29.01.2019, 16:15
    #39766644
Jelvis
Jelvis
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи в макросе на сохранение файла в подпапку
Всем привет! Подскажите пожалуйста, как в эту ф-цию добавить новый путь сохранения в подпапку (От коренной).
Суть макроса следующая:
1. Переход на лист "Карта"
2. Копирует лист в новую книгу.
3. Активную новую книгу сохраняет по имени из ячейки в коренную папку с исполняемым файлом.

Не могу сделать чтобы сохранение было не в коренную папку, а чуть дальше "\StudentsCards\"
Сам коД:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
With кореньдиагностики
        НовоеИмяФайла = [d2] ' имя из ячейки d2 , ФИО, день рождения
        НовыйПуть = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, НовоеИмяФайла)
        Sheets("Карта").Copy ' на основе этого листа создаётся новая книга
        ActiveWorkbook.SaveAs НовыйПуть ' сохраняем эту новую книгу с одним листом
        ActiveWorkbook.Close False ' закрываем книгу без сохранения
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2019, 16:17
    #39766647
Jelvis
Jelvis
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи в макросе на сохранение файла в подпапку
Пробовал делать через Active.Workbook.SaveAs Filename:=ThisWorkbook.Path & "\StudentsCards\" & НовыйПуть
В итоге краш на этом моменте
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2019, 16:25
    #39766656
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи в макросе на сохранение файла в подпапку
Jelvis,

ну как минимум:
Код: vbnet
1.
НовыйПуть = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "StudentsCards\" & НовоеИмяФайла & ".xlsx")


вместо ".xlsx" - нужное расширение файла, если в ячейке с именем оно не указано. И потом для этого расширения указываете нужный формат при сохранении:
Код: vbnet
1.
ActiveWorkbook.SaveAs НовыйПуть, ThisWorkbook.FileFormat 'для простоты берем формат файла с кодом, но далеко не факт, что нужен именно он
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2019, 16:32
    #39766662
Jelvis
Jelvis
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прошу помощи в макросе на сохранение файла в подпапку
Господи наконец-таки) Спасибо большое, все в такой мелочи. Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Прошу помощи в макросе на сохранение файла в подпапку / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]