Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Активация рабочей книги открытой с помощью процедуры
 
Добрый день, такой вопрос:
Есть большая процедура, запускается из любой рабочей книги, запрашивает открытие двух рабочих книг для обработки, из первой процедура автоматически выбирает нужные данные, из второй просит указать диапазон.
Для указания диапазона решил использовать функцию, имеет ли смысл?
Далее для указания диапазона сначала пользователь выбирает файл, затем выбирает диапазон с помощью функции  application.inputbox()
При запуске не активируется выбранная книга, переключиться на нее невозможно, и соответсвенно нет возможности выбрать необходимый в ней диапазон, как можно активировать эту книгу?
 
Лучше тогда и лист явно указать
эту строку вставить перед application.inputbox():
Код
Workbook("Имя Вашей книги").Sheets("Название листа").Activate
Согласие есть продукт при полном непротивлении сторон.
 
А как можно указать имя рабочей книги если ее указывает пользователь, посредством следующего механизма:
Pricefile=application.getopenfile
Application.workbooks.open pricefile

И еще вопрос в догонку к первому сообщению, можно ли как то при открытии рабочей книги запретить загрузку содержащихся в ней модулей для ускорения работы процедуры?
 
pricefile - это и будет имя открытой книги
Код
Workbook(pricefile).Sheets("Название листа").Activate

Что значит "загрузку модулей"? при открытии книги выполняются какие-то операции? Если Да и их выполнение вам не нужно тогда отредактировать обработчик события Workbook_Open()
Согласие есть продукт при полном непротивлении сторон.
 
про имя файла
 
Всем спасибо большое
 
Еще только имя файла можно получить с помощью Dir:
Код
Pricefile = Application.GetOpenFilename()
Pricefile_Name = Dir(Pricefile, 16)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему (гостей: 1)