Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 544
от 08.06.2007, 01:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 265, Экспертов: 27
В номере:Вопросов: 1, Ответов: 2


Вопрос № 89778: Уважаемые Эксперты, помогите пожалуйста найти решение следующей вопроса: имеется 50 файлов xls, которые идентичны по структуре, т.е. формат данных во всех файлах идентичен, есть лист1 в каждом файле и в этом листе есть диапазон данных, диапзоны т...

Вопрос № 89.778
Уважаемые Эксперты, помогите пожалуйста найти решение следующей вопроса:
имеется 50 файлов xls, которые идентичны по структуре, т.е. формат данных во всех файлах идентичен, есть лист1 в каждом файле и в этом листе есть диапазон данных, диапзоны также идентичны, А2:BC56, а вот данные в этих дипазонах в кажом файле разные. Необходимо сделать свод лист в новом файле в котором будут суммироваться данные из диапазонов всех 50 файлов. Excel не воспринимает столь много значений в одной формуле, т.е. у действия файл1(А2:B2)+файл2(А2:B2)..... есть ограничение. Как этого избежать, что бы сложить одну ячейку, а затем успешно протянуть сумму всего диапазона?
Большое спасибо!
Отправлен: 03.06.2007, 00:44
Вопрос задала: Элли Александровна Татошкина (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 20)

Отвечает: PsySex
Здравствуйте, Элли Александровна Татошкина!
Итак, как работает этот макрос. Макрос в приложении. Его можно поместить в новый документ, он работает как отдельная программа. Нужно создать директорию "c: est1", в эту папку поместить все ваши экселевские файлы. Потом там же создать cells.txt, в этот файл запишите перечень ячеек по которым собираются суммы, в виде
В2
С4
..
А5
Вообщем имя новой ячейки с новой строки. И сохраните его. Как я понял, что структура всех файлов одинакова, в том числе и конечного с результатом, то скопируйте какой-нибудь файл в корень диска C: и дайте ему имя result.xls. После обработки макроса суммы будут именно в этом файле по ячейкам из файла cells.txt.
И последнее у меня неполучилось сделать макрос с переопределением массива, поэтому сделайте это вручную. Запомните количество ячеек которые вы поместили в файл cells.txt. В макросе есть число 100, там соответствующие коментарии, его нужно изменить на ваше колличество. Это необходимо сделать в начале и в середине макроса, в описаниях цикла For..Next. После этого использовать макрос.

Приложение:

---------
Bom Shankar!

Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 03.06.2007, 14:56
Оценка за ответ: 5

Отвечает: HookEst
Здравствуйте, Элли Александровна Татошкина!
Не удержался, решил все-таки дать свой вариант с использованием Сводной Таблицы.
макрос CreateTable запрашивает папку и создает Сводную Таблицу(консолидацию) для всех книг из этой папки для региона DATA_RANGE.
также привожу Sub которой я создавал 50 пробных книг.
у меня работает замечательно
см приложение
Успехов, HookEst.

Приложение:

Ответ отправил: HookEst (статус: Студент)
Ответ отправлен: 04.06.2007, 10:16
Оценка за ответ: 5


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.52 от 02.05.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное