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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение документа с помощью команды ActiveWorkbook.Save - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение документа с помощью команды ActiveWorkbook.Save (Не знаю как вытянуть значение из выделенной ячейки)
Сохранение документа с помощью команды ActiveWorkbook.Save
master-dd Дата: Воскресенье, 25.08.2013, 19:37 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 1 ±
Замечаний: 0% ±

2016
Добрый день всем!

Нужна помощь (свой мозг уже переплавился :( )

Итак, после множества операций, требуется сохранить текущий документ с определённым именем. Команда, например, такая:
" ActiveWorkbook.SaveAs Filename:="C:\EPZ - Daily Reports\RSP\" & Range("B2").Value & " - " & Year(Range("J1").Value) & "." & Month(Range("J1").Value) & "." & Day(Range("J1").Value) & " - " & "PMU-Report" & ".xls", CreateBackup:=False "

Дак вот, мне необходимо чтобы вместо "Range("B2").Value" у меня там было прописано нечто, что позволяет вытянуть значение (Value) не из конкретной ячейки (B2), а из текущей, выделенной (той, на которой стоит курсор).

Заранее спасибо тем, кто поможет!
 
Ответить
СообщениеДобрый день всем!

Нужна помощь (свой мозг уже переплавился :( )

Итак, после множества операций, требуется сохранить текущий документ с определённым именем. Команда, например, такая:
" ActiveWorkbook.SaveAs Filename:="C:\EPZ - Daily Reports\RSP\" & Range("B2").Value & " - " & Year(Range("J1").Value) & "." & Month(Range("J1").Value) & "." & Day(Range("J1").Value) & " - " & "PMU-Report" & ".xls", CreateBackup:=False "

Дак вот, мне необходимо чтобы вместо "Range("B2").Value" у меня там было прописано нечто, что позволяет вытянуть значение (Value) не из конкретной ячейки (B2), а из текущей, выделенной (той, на которой стоит курсор).

Заранее спасибо тем, кто поможет!
Автор - master-dd
Дата добавления - 25.08.2013 в 19:37
Hugo Дата: Воскресенье, 25.08.2013, 19:40 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
[vba]
Код
Selection(1).Value
[/vba]
Комментарий по коду - обращение к диапазонам без указания листа может привести к ошибке в некоторых случаях.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
Сообщение[vba]
Код
Selection(1).Value
[/vba]
Комментарий по коду - обращение к диапазонам без указания листа может привести к ошибке в некоторых случаях.
Автор - Hugo
Дата добавления - 25.08.2013 в 19:40
KuklP Дата: Воскресенье, 25.08.2013, 19:54 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Или activecell ... Без индекса.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеИли activecell ... Без индекса.
Автор - KuklP
Дата добавления - 25.08.2013 в 19:54
Wasilich Дата: Воскресенье, 25.08.2013, 21:47 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Или так - [vba]
Код
Range(Selection.Address)
[/vba]


Сообщение отредактировал Wasilic - Воскресенье, 25.08.2013, 21:48
 
Ответить
СообщениеИли так - [vba]
Код
Range(Selection.Address)
[/vba]
Автор - Wasilich
Дата добавления - 25.08.2013 в 21:47
KuklP Дата: Воскресенье, 25.08.2013, 21:58 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Васильич, Игорь не зря указал индекс yes

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВасильич, Игорь не зря указал индекс yes
Автор - KuklP
Дата добавления - 25.08.2013 в 21:58
Wasilich Дата: Воскресенье, 25.08.2013, 22:11 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата (KuklP, Воскресенье, 25.08.2013, 21:58 # 5)
Васильич, Игорь не зря указал индекс

Ну, если выделит диапазон то не пойдет! А, для общего развития пригодится. :)
 
Ответить
Сообщение
Цитата (KuklP, Воскресенье, 25.08.2013, 21:58 # 5)
Васильич, Игорь не зря указал индекс

Ну, если выделит диапазон то не пойдет! А, для общего развития пригодится. :)
Автор - Wasilich
Дата добавления - 25.08.2013 в 22:11
master-dd Дата: Воскресенье, 25.08.2013, 22:32 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 78
Репутация: 1 ±
Замечаний: 0% ±

2016
Господа, спасибо всем (все варианты работают)!!!! Как всё оказывается элементарно! :D


Сообщение отредактировал master-dd - Воскресенье, 25.08.2013, 22:39
 
Ответить
СообщениеГоспода, спасибо всем (все варианты работают)!!!! Как всё оказывается элементарно! :D
Автор - master-dd
Дата добавления - 25.08.2013 в 22:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение документа с помощью команды ActiveWorkbook.Save (Не знаю как вытянуть значение из выделенной ячейки)
  • Страница 1 из 1
  • 1
Поиск:

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