Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Передать значение из ячейки в название файла при сохранении - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Передать значение из ячейки в название файла при сохранении (Формулы/Formulas)
Передать значение из ячейки в название файла при сохранении
mikaelw Дата: Понедельник, 25.08.2014, 18:03 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013, 2016
Извините за столь простой вопрос.

Думаю тут все понятно:

[vba]
Код
Windows("Sale_Report.xlsm").Activate
Sheets(Array("Report", "Report (2)", "eeno1", "Report_Produkt", "Report_plan", "Plan")).Select
Sheets("Report").Activate
Sheets(Array("Report", "Report (2)", "eeno1", "Report_Produkt", "Report_plan", "Plan")).Move
Sheets("Plan").Activate
ActiveWorkbook.SaveAs Filename:= _
"D:\Sale_report\SaleReport(" & Range("A4") & ") _" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
[/vba]

В название файла берется значение с активного листа с ячейки А4, а как дать полный адрес с указанием листа.

P.S. Где найти синтаксис на русском для VBA(я просто если пишу то только на 1С).
Макрухи пишу рекодер ом..

Заранее спасибо!
 
Ответить
СообщениеИзвините за столь простой вопрос.

Думаю тут все понятно:

[vba]
Код
Windows("Sale_Report.xlsm").Activate
Sheets(Array("Report", "Report (2)", "eeno1", "Report_Produkt", "Report_plan", "Plan")).Select
Sheets("Report").Activate
Sheets(Array("Report", "Report (2)", "eeno1", "Report_Produkt", "Report_plan", "Plan")).Move
Sheets("Plan").Activate
ActiveWorkbook.SaveAs Filename:= _
"D:\Sale_report\SaleReport(" & Range("A4") & ") _" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
[/vba]

В название файла берется значение с активного листа с ячейки А4, а как дать полный адрес с указанием листа.

P.S. Где найти синтаксис на русском для VBA(я просто если пишу то только на 1С).
Макрухи пишу рекодер ом..

Заранее спасибо!
Автор - mikaelw
Дата добавления - 25.08.2014 в 18:03
Pelena Дата: Понедельник, 25.08.2014, 19:13 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Не уверена, но, может, так
[vba]
Код
"D:\Sale_report\SaleReport(" & ActiveSheet.Name & Range("A4") & ") _" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xlsx",
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНе уверена, но, может, так
[vba]
Код
"D:\Sale_report\SaleReport(" & ActiveSheet.Name & Range("A4") & ") _" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xlsx",
[/vba]
Автор - Pelena
Дата добавления - 25.08.2014 в 19:13
RAN Дата: Понедельник, 25.08.2014, 19:22 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
... & Sheets("нужный").Range("A4") ...
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
... & Sheets("нужный").Range("A4") ...
[/vba]
Автор - RAN
Дата добавления - 25.08.2014 в 19:22
Pelena Дата: Понедельник, 25.08.2014, 19:36 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
А я почему-то решила, что в имя файла должно попасть имя активного листа

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеА я почему-то решила, что в имя файла должно попасть имя активного листа
Автор - Pelena
Дата добавления - 25.08.2014 в 19:36
mikaelw Дата: Понедельник, 25.08.2014, 20:00 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация: 1 ±
Замечаний: 20% ±

Excel 2010, 2013, 2016
а может по ПС кто подскажет?
 
Ответить
Сообщениеа может по ПС кто подскажет?
Автор - mikaelw
Дата добавления - 25.08.2014 в 20:00
Serge_007 Дата: Понедельник, 25.08.2014, 20:04 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Синтаксис - он один и от языка не зависит, потому что VBA только на английском

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеСинтаксис - он один и от языка не зависит, потому что VBA только на английском
Автор - Serge_007
Дата добавления - 25.08.2014 в 20:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Передать значение из ячейки в название файла при сохранении (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!