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

Это то понятно, а как считать все файлы из папки и выбрать из них эту самую ячейку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2006, 20:03:06
    #33535453
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение данных из нескольких Excel документов
Переписывает в столбец 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
    #33536846
sunsu
sunsu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение данных из нескольких Excel документов
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, 15:52:40
    #33537525
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение данных из нескольких Excel документов
sunsuНе могли бы вы подробенне описать, что значит книг по шаблону, а то я не могу запустить макрос - не находяться файли по шаблону
В твоем случае достаточно написать в пятой строке
Код: plaintext
.Filename = "*.xls"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2006, 12:28:39
    #33540483
susnu
susnu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение данных из нескольких Excel документов
k-nike sunsuНе могли бы вы подробенне описать, что значит книг по шаблону, а то я не могу запустить макрос - не находяться файли по шаблону
В твоем случае достаточно написать в пятой строке
Код: plaintext
.Filename = "*.xls"


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


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

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


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