Группировка значений для анализа

[xamillion]

Сообщение от SAS888

Для извлечения данных из файлов запустите макрос "GetFromFiles". Файл "результат.xls" должен находиться в той же папке, что и просматриваемые файлы.

Пытается вставлять не понятно откуда, хотя лежит в отдельной папке, а данные берет толи со всего диска "С", толи из "Моих Документов"...

Сообщение от SAS888

Если есть необходимость разместить его в другой папке, то в коде вместо "CurDir" пропишите путь к папке с файлами.

В этом случае все прекрасно работает

Сообщение от SAS888

P.S. А если бы в файлах-источниках листы, с которых требуется получить данные, имели бы одинаковое имя (например, "Лист1"), то можно было бы получить данные из требуемых файлов без открытия и закрытия книг, что более рационально.

Листы в книгах будут называться также как и сама книга из-за особенности ПО, которое создает эти файлики...



Спасибо за помощь... вполне рабочий вариант получается... все же в n-раз лучше чем ручками выбирать!!!


Совсем забыл спросить может и формулы макросом вставлять можно, я там одну напридумывал, может по-лучше придумать можно, а то сортировать нужно, чтобы формула считала?
Смысл: после всех манипуляций нужно вставить два столбика из разных файлов (записи в этих файлах уникальны) и еще нумерацию строк.

[SAS888]

Посмотрите вложение. Запустите макрос "Main" из файла "результат.xls".
Условия:
1. Файлы "результат.xls", "договор.xls" и "характеристики.xls" могут находиться где угодно, но должны быть в одной папке.
2. Файлы "результат.xls", "договор.xls" и "характеристики.xls" переименовывать нельзя.
3. Лист "исходное" в файле "результат.xls" переименовывать нельзя.
4. В обрабатываемых файлах назначение столбцов изменять нельзя.

P.S. И еще. Файлы "договор.xls" и "характеристики.xls" не должны быть открыты. Если есть необходимость - в макрос можно вставить такую проверку.

[xamillion]

Спасибо!!! Все просто великолепно... Условия вполне приемлимы, а проверку на "открытость" и не нужна вообще - их никто и открывать не собирается... Я думаю подобая наработка будет интересна не только мне...

[xamillion]

В процессе работы выяснилось, что месяца не по порядку распределяются... какой первый выципил - тот первым и вставил...

Ну и если не сложно суммы в конце добавить, и количество предприятий в месяце...

А если возможно - то поставить условие переноса строки в лист "исходное" по значению... К примеру, чтобы копировал строки со значением не менее указаного (наверное по запросу:"Введите граничный предел")...



Заранее спасибо...

[SAS888]

Ваши пожелания выполнены.

[xamillion]

Сообщение от SAS888

Ваши пожелания выполнены.

Снова спасибочки... а с фильтром возможно замутить??


P.S. Не допер откуда именно эти цифры:

For i = 17 To 6 Step -1
On Error Resume Next
y.Add Cells(1, i), CStr(Cells(1, i))
If Err = 0 Then Columns(i).Delete
On Error GoTo 0
Next

[SAS888]

Не допер откуда именно эти цифры:

Раньше, извлеченные из всех файлов значения месяцев вставлялись в ячейки, начиная со столбца "F", в том порядке, в котором мы их находили. По Вашей просьбе (чтобы месяцы были по порядку) применен следующий алгоритм:
При формировании листа результатов, в 1 строку, начиная со столбца "F", вписываются все месяцы по порядку (см. в коде макроса). Затем, после того, как мы получили коллекцию с существующими названиями месяцев, выполняется код из предыдущего поста. В цикле от столбца 17 (декабрь) до столбца 6 (январь) удаляются те столбцы, которых нет в нашей коллекции. Цикл организован "справа налево" для того, чтобы при удалении очередного столбца не нарушался счетчик цикла.

а с фильтром возможно замутить??

Нет ничего невозможного. Опишите подробнее, что за фильтр Вам нужен. Почему Вас не устраивает Excel-евский автофильтр?

[xamillion]

Сообщение от SAS888

Раньше, извлеченные из всех файлов значения месяцев вставлялись в ячейки, начиная со столбца "F", в том порядке, в котором мы их находили. По Вашей просьбе (чтобы месяцы были по порядку) применен следующий алгоритм:
При формировании листа результатов, в 1 строку, начиная со столбца "F", вписываются все месяцы по порядку (см. в коде макроса). Затем, после того, как мы получили коллекцию с существующими названиями месяцев, выполняется код из предыдущего поста. В цикле от столбца 17 (декабрь) до столбца 6 (январь) удаляются те столбцы, которых нет в нашей коллекции. Цикл организован "справа налево" для того, чтобы при удалении очередного столбца не нарушался счетчик цикла.

въехал....

Сообщение от SAS888

Нет ничего невозможного. Опишите подробнее, что за фильтр Вам нужен. Почему Вас не устраивает Excel-евский автофильтр?

Нужно чтобы в последнем варианте "нашей" наработки из файлов переносились в файл "результат" на лист "исходное" только те строки, показатель которых выше определенного значения, запрос на ввод которого производится после запуска макроса...

А ввести второй показатель будет сложно? чтобы он выводился следом за первым?

[SAS888]

Нет ничего сложного. Я уже просил: пишите подробнее, что нужно.
Что значит

только те строки, показатель которых выше определенного значения

Какого значения? По каким критериям фильтровать? Оговорите все, какие нужно и где (в каких столбцах каких файлов) они находятся.

[xamillion]

Понял - тогда по-порядку...

Итак, показателей теперь 4-ре...

Из файлов в директории, которую указываем (в данном случае "копирование" и файлы "1xls", "2.xls" и "8.xls") нужно переносить строки по "показателю 2"... т.е. если "показатель 2" меньше значения, которое мы введем на вопрос "Укажите минимальную границу!", то эта строка не переносится в лист "исходное"... и потом формируется таблица на листе "результат" так же как и раньше, но уже с 4-мя показателями...