ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получение данных из нескольких Excel документов
14 сообщений из 14, страница 1 из 1
Получение данных из нескольких Excel документов
    #33531196
SunSu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SunSu
Гость
Расскажите пожалуйста, каким образом получить из нескольких Excel документов, которые лежат в одной папке значение определенной ячейки и вставить все эти значения в отдельный Excel документ.
...
Рейтинг: 0 / 0
08.02.2006, 13:23:09
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33531487
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Проще всего с помощью формулы, типа:
=[Книга2.xls]Лист1!$A$1
...
Рейтинг: 0 / 0
08.02.2006, 14:25:03
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33532311
Sunsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sunsu
Гость
ДмитПроще всего с помощью формулы, типа:
=[Книга2.xls]Лист1!$A$1

Это то понятно, а как считать все файлы из папки и выбрать из них эту самую ячейку
...
Рейтинг: 0 / 0
08.02.2006, 17:55:37
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33535453
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Переписывает в столбец A текущей книги занчения из ячейки A1 книг по шаблону
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
set ShA=ActiveSheet
i= 1 
With Application.FileSearch
    .LookIn = ActiveWorkbook.Path
    .Filename = "shablon*.xls"
    If .Execute >  0  Then
     for j= 1  to .FoundFiles.Count
       Workbooks.Open Filename:=ActiveWorkbook.Path+"\"+.FoundFiles(j), ReadOnly:=True
       ShA.Cells(i, 1 ).Value=ActiveSheet.Cells( 1 , 1 ).Value
       ActiveWorkbook.Close
       i=i+ 1 
     next
    else
     MsgBox("Не найдены файлы по шаблону!")
    End If
End With
...
Рейтинг: 0 / 0
09.02.2006, 20:03:06
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33536846
sunsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sunsu
Гость
AndreTMПереписывает в столбец A текущей книги занчения из ячейки A1 книг по шаблону
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
set ShA=ActiveSheet
i= 1 
With Application.FileSearch
    .LookIn = ActiveWorkbook.Path
    .Filename = "shablon*.xls"
    If .Execute >  0  Then
     for j= 1  to .FoundFiles.Count
       Workbooks.Open Filename:=ActiveWorkbook.Path+"\"+.FoundFiles(j), ReadOnly:=True
       ShA.Cells(i, 1 ).Value=ActiveSheet.Cells( 1 , 1 ).Value
       ActiveWorkbook.Close
       i=i+ 1 
     next
    else
     MsgBox("Не найдены файлы по шаблону!")
    End If
End With


Не могли бы вы подробенне описать, что значит книг по шаблону, а то я не могу запустить макрос - не находяться файли по шаблону
...
Рейтинг: 0 / 0
10.02.2006, 13:07:39
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33537525
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
sunsuНе могли бы вы подробенне описать, что значит книг по шаблону, а то я не могу запустить макрос - не находяться файли по шаблону
В твоем случае достаточно написать в пятой строке
Код: plaintext
.Filename = "*.xls"
...
Рейтинг: 0 / 0
10.02.2006, 15:52:40
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33540483
susnu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
susnu
Гость
k-nike sunsuНе могли бы вы подробенне описать, что значит книг по шаблону, а то я не могу запустить макрос - не находяться файли по шаблону
В твоем случае достаточно написать в пятой строке
Код: plaintext
.Filename = "*.xls"


Капец, у меня ничего не находит :(
...
Рейтинг: 0 / 0
13.02.2006, 12:28:39
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33540553
sunsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sunsu
Гость
Вот например пример документа - во всех документах в названии фигурирует PAT_VINIQA001 и все они созданы по шаблону. Из документа - закладки КРА нужно вытянуть ячейки A2 и B16. Я создаю документ с табличкой, привязываю к нему макрос, но ни один файл по шиблону имени у меня не находиться :(
...
Рейтинг: 0 / 0
13.02.2006, 12:49:12
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33541462
sunsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sunsu
Гость
sunsuВот например пример документа - во всех документах в названии фигурирует PAT_VINIQA001 и все они созданы по шаблону. Из документа - закладки КРА нужно вытянуть ячейки A2 и B16. Я создаю документ с табличкой, привязываю к нему макрос, но ни один файл по шиблону имени у меня не находиться :(


Так с этим я уже разобралась, так что тревога отменяеться :)
...
Рейтинг: 0 / 0
13.02.2006, 16:47:56
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33541487
sunsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sunsu
Гость
Теперь вопрос в догонку.
Как теперь построить диаграмму по автоматически полученным - в условиях незвестного промежутка ячеек
...
Рейтинг: 0 / 0
13.02.2006, 16:52:34
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33541804
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
sunsuТеперь вопрос в догонку.
Как теперь построить диаграмму по автоматически полученным - в условиях незвестного промежутка ячеек
http://www.sql.ru/forum/actualthread.aspx?tid=259332
...
Рейтинг: 0 / 0
13.02.2006, 18:40:55
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33542975
sunsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sunsu
Гость
AndreTM sunsuТеперь вопрос в догонку.
Как теперь построить диаграмму по автоматически полученным - в условиях незвестного промежутка ячеек
http://www.sql.ru/forum/actualthread.aspx?tid=259332

Спасибо
...
Рейтинг: 0 / 0
14.02.2006, 11:40:33
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33559211
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
Народ выручайте.
Я вышеупомянутый код использовала, но эксель выдает run-time error 1004 "Нет доступа к файлу". Спотыкается на этой строке:
Workbooks.Open Filename:=ActiveWorkbook.Path+"\"+.FoundFiles(j), ReadOnly:=True
...
Рейтинг: 0 / 0
21.02.2006, 18:19:35
| Ответить | Цитировать | Написать  
Получение данных из нескольких Excel документов
    #33559221
Loll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Loll
Гость
И еще...
Как сделать так чтобы запуская макрос я указывала папку и эти файлы брались оттуда, причем определенные файлы, желательно так же по шаблону мне надо исключить.
А копирование нужно такое с первого листа книги первую стороку (там объединенные ячейки и если они объеденены вправо или вниз, то все их содержание), а со сторого просто всю информацию... и так со всех книг в папке.
...
Рейтинг: 0 / 0
21.02.2006, 18:25:44
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получение данных из нескольких Excel документов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33536846&tid=2185218]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 100ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 206ms
total:  386ms
созд. / загр.: 386ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]