Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сбор данных из разных книг, имеющих по четыре листа
 
Помогите разобраться с объектами This Workbook, ActiveWorkbook, Workbook.Open  
При открытии книги кодом VBA, какой лист будет выбран, если в книге 4 листа ? Надо ли активировать листы, чтобы копировать с них данные, или применять метод .Select?  
Задача: Есть папка с рабочими книгами, каждая из которых содержит по четыре листа.  
В этой папке есть книга "Объемы" с такими же именами листов как и в рабочих книгах и где находится код VBA, позволяющий собирать данные с одноименных листов рабочих книг в книгу "Объемы" на лист с тем же именем.  
Мои наметки по коду в прикрепленном файле, но при пошаговом прогоне выдает ошибки. Самому никак не разобраться, так как еще только учусь программированию в Excel.  
Задачу можно решить путем консолидации данных, но уж больно утомительно вводить диапазоны из разных книг, которых может быть больше 10.
 
При открытии книги кодом VBA, какой лист будет выбран, если в книге 4 листа ?  
Который был последний активным (пропиши обработку события Workbook_Open)  
 
Надо ли активировать листы, чтобы копировать с них данные, или применять метод .Select?  
НЕТ.  
 
В прикрепленном архиве упрощенный код, но он тоже выдает ошибку...  
Потому что в твоих книгах в папке НАЗВАНИЯ ЛИСТОВ НЕ СОВПАДАЮТ!!!  
 
P.S.  
Sheets, Range объявлять не нужно, это не переменные и не объекты
 
Большое спасибо Аналитику за ценные замечания в исполняемом коде,    
привел в соответствие имена листов во всех книгах и все получилось!  
Еще раз спасибо!
Страницы: 1
Читают тему (гостей: 2)
Наверх