|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.06.2010, 11:09 | #1 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
Сбор даных с разных книг в одну
Здравствуйте! Есть такая необходимость каждый день вносить данные из таблиц экспорта отчетов в одну сводную как можно автоматизировать этот процес чтоб не вводить эти данные вручную, причем в таблице отчета строка итого плавующая зависит от количества платежей а столбцы всегда одни и тежи. Осмотрел похожие темы но не че сам сообразить не смог, помогите кто чем может.
|
16.06.2010, 12:37 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Запускать через Alt+F8 на активном листе ДействительныеПлатежиНаличными_3_20 100614.xls (т.е. в той книге, которую подтягиваем в сводную), сам код в книге Сводная таблица.xls:
Код:
Если есть желание подтягивать сразу из всех файлов папки или из выбранных в диалоге, можно обвязать перебором файлов папки или в начале кода добавить диалог выбора файлов для анализа.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 16.06.2010 в 12:49. |
17.06.2010, 07:25 | #3 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
Пишет ошибку и желтым выделяет dt = Format([General_TODATE], "dd") 'определяем дату отчёта
я так понял не может определить дату отчета. |
17.06.2010, 09:29 | #4 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Код запускаете на файле ДействительныеПлатежиНаличными_3_20 100614.xls ?
webmoney: E265281470651 Z422237915069 R418926282008
|
17.06.2010, 11:58 | #5 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
если запускаю из сводной таблицы то да эта ошибка а если делаю как во втором посте написано то не чего не происходит. Или может я что-то не правильно делаю?
Последний раз редактировалось Pao; 17.06.2010 в 12:33. |
17.06.2010, 12:47 | #6 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
|
17.06.2010, 15:10 | #7 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Обвязать перебором (может и нет в программировании такого сленга ) - это я думал "вставить этот код внутрь перебора всех файлов папки", погуглите по Dir()
Пример, где это используется: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 17.06.2010 в 15:14. |
18.06.2010, 11:24 | #8 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
Ну с этим я думаю уже сам смогу разобраться.
Сегодня начал выдовать ошибку Run-time error 13 Type mismatch и желтым выделяет ThisWorkbook.Sheets(1).Cells(termin al + 4, zaccol).Value = zac 'заносим "Зачислено" Я так понял что идет не совпадение формата ячеек и он не может записать данные в ячейку или тут в чемто другом загвозда? |
18.06.2010, 11:58 | #9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Наверное не число terminal или zaccol.
zaccol = dt * 2 - значит может dt не определилось. terminal = Cells(iLastRow - 1, 5) - что в этой ячейке?
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 18.06.2010 в 12:08. |
21.06.2010, 07:51 | #10 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
dt - число определилось правильно,
zaccol - колонку определил правильно соответствующюю числу, terminal = Cells(iLastRow - 1, 5) - название терминала тоже нормально Названия терминалов в сводной таблице и в экспорте совпадают. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
сбор данных с разных книг в одну | Ledy1987 | Microsoft Office Excel | 26 | 20.04.2011 21:33 |
Сбор данных с множества книг в одну по шаблонам | Adeletto | Microsoft Office Excel | 3 | 11.06.2010 17:07 |
Обьединение разных типов даных | женя2010 | Microsoft Office Excel | 3 | 21.04.2010 12:56 |
Сбор данных из разных книг | 804040 | Microsoft Office Excel | 2 | 19.04.2010 15:33 |
Сбор данных с разных файлов | Fess111 | Microsoft Office Excel | 2 | 09.03.2010 10:13 |