|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.06.2012, 15:14 | #1 |
Пользователь
Регистрация: 17.07.2008
Сообщений: 81
|
Импорт данных с закрытой книги в Excel
Здравствуйте, есть такая задача, необходимо осуществить импорт с закрытой книги Excel в открытую. Принцип такой. При выполнении макроса открывается диалоговое окно выбора папки где лежит файл данные с которого надо экспортировать. После выбора папки (в данной папке будет только один файл excel), макрос должен считать данные в каждой ячейке определенного диапазона и записать эти данные в определенные ячейки в книге куда импортируются данные.
Во вложении я попытался что-то сделать, единственно "встал" на цикле. Т.е. нужно организовать цикл (или другой способ) чтобы не писать каждый раз почти один и тот же код для каждой ячейки диапазона с которого идет импорт. Задача всей этой "процессии" такая: пользователь работает с книгой Excel, вбивает в определенные поля данные потом после того как закончит работу делает экспорт данных (экспорт я планирую сделать просто копипастом). Потом работает с данной же книгой но уже забивает другие данные. Если ему понадобится загрузить старые данные, то он просто импортирует ранее экспортированные данные чтобы не вбивать вручную заново. Книга одна, пересохранять под другим именем нельзя (почему не важно - так стоит задача). Требуется именно импорт данных. Спасибо. |
08.06.2012, 18:47 | #2 |
Форумчанин
Регистрация: 24.01.2011
Сообщений: 136
|
Если название листов во всех закрытых книгах одинаковое, и известны адреса ячеек из которых надо взять данные не открывая файл - то можно..Книгу Main.xls откройте, кнопку нажмите и из папки Base берём данные , не открывая файлы..
Если в закрытой книге один единственный лист, то название листа может быть любое.. Т.е. сложив в папку файлы, в каждом из которых по одному листу, можно брать данные из определённых ячеек а названия листов могут быть различные в этих книгах.. |
08.06.2012, 18:49 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение. GetValue выделена в отдельную функцию, которая вызывается из макроса "import" в цикле. Подставьте требуемые значения строк и столбцов.
Чем шире угол зрения, тем он тупее.
|
08.06.2012, 22:00 | #4 |
Пользователь
Регистрация: 17.07.2008
Сообщений: 81
|
Спасибо друзья буду пробовать. Потом отпишусь...
|
12.06.2012, 10:22 | #5 |
Пользователь
Регистрация: 17.07.2008
Сообщений: 81
|
Друзья с импортом более менее разобрался, появился вопрос с экспортом данных. Есть код:
Код:
Не охото писать каждый раз ActiveWorkbook.Sheets("Лист1").Rang e("A1") = r1 (r2, r3 ...) Последний раз редактировалось Mint86; 12.06.2012 в 10:25. |
12.06.2012, 10:40 | #6 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Код:
Чем шире угол зрения, тем он тупее.
|
|
12.06.2012, 10:56 | #7 |
Пользователь
Регистрация: 17.07.2008
Сообщений: 81
|
SAS888 огромное спасибо, именно это и нужно было.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
копирование данных из закрытой книги в открытую | mars56 | Microsoft Office Excel | 5 | 17.02.2010 11:29 |
Большой выпадающий список с данными из другой закрытой книги Excel. | agregator | Microsoft Office Excel | 72 | 17.02.2010 00:19 |
Экспорт данных из закрытой книги как это организовать? | Дмитрий Фукс | Microsoft Office Excel | 11 | 06.04.2009 23:42 |
Получение пользовательской функцией данных с закрытой книги | KozakMamaj | Microsoft Office Excel | 18 | 22.10.2008 06:55 |
Импорт данных из другой книги | AntonFox | Microsoft Office Excel | 8 | 18.08.2008 17:17 |