ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Прошу помощи в макросе на сохранение файла в подпапку
4 сообщений из 4, страница 1 из 1
Прошу помощи в макросе на сохранение файла в подпапку
    #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:15
| Ответить | Цитировать | Написать  
Прошу помощи в макросе на сохранение файла в подпапку
    #39766647
Jelvis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jelvis
Гость
Пробовал делать через Active.Workbook.SaveAs Filename:=ThisWorkbook.Path & "\StudentsCards\" & НовыйПуть
В итоге краш на этом моменте
...
Рейтинг: 0 / 0
29.01.2019, 16:17
| Ответить | Цитировать | Написать  
Прошу помощи в макросе на сохранение файла в подпапку
    #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:25
| Ответить | Цитировать | Написать  
Прошу помощи в макросе на сохранение файла в подпапку
    #39766662
Jelvis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jelvis
Гость
Господи наконец-таки) Спасибо большое, все в такой мелочи. Спасибо!
...
Рейтинг: 0 / 0
29.01.2019, 16:32
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Прошу помощи в макросе на сохранение файла в подпапку
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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