Сбор данных по id с указанных книг и отправка их по почте в виде html

[OksanaT]

Добрый вечер. Помогите пожалуйста. Суть проблемы в том, что мне необходимо собрать отчет из нескольких книг в одну и отправить по почте в виде html. перевод документа в html реализовано, отправка по почте тоже. Не получается собрать данные со всех книг, находящихся в определенной папке, id по которым собираются данные является номер недели, которая ставится автоматически при сохранении. По одной книге все работает идеально. Код проходит по 3м листам и отправляет отчет на почту. Не получается пустить тот же код по всем книгам. Переменная куда все записывается после каждой книги обнуляется.

[Hugo121]

Не по теме, но связано - в файл нужно добавить

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Удаление пользовательского меню если оно существует
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("Меню").Delete
    On Error GoTo 0
End Sub

А то некрасиво...

[OksanaT]

Это-то ладно... Мне б с основным разобраться Неужели никто не сможет помочь

[Скрипт]

OksanaT, сделайте модель вашей ситуации. Потому что неопытному программисту надо потратить день, чтобы разобраться в вашем коде.

Выделите из вашего кода только то, что понадобится для того, чтобы вам помогли.

[OksanaT]

Сейчас все сделаю

[OksanaT]

Вот практически готовый макрос. Он запрашивает необходимую неделю, по которой необходимо составить отчет, проходит по текущей книге(3м листам) и составляет этот самый отчет. Проблема состоит в том, что будет несколько книг с одинаковым названием листов и заголовками таблиц, но с разным содержанием этих таблиц. Необходимо чтоб мой макрос проходил по всем книгам находящимся в определенной папке и выполнял функцию, которая составляет отчет. Т.е, получился бы отчет со всех книг, а не с одной. Процедуры(выложенные в инете), которые собирают данные с нескольких книг я не смогла подбить под свои нужды. Помогите кто чем сможет, пожалуйста.

[Скрипт]

OksanaT, есть книга, в которую собираются данные из нескольких книг. Назовём эту книгу "книга-назначение".
Есть книги, из которых нужно взять данные в книгу-назначение. Назовём эти книги "книги-источники".

Выложите книгу-назначение и две книги-источник. На основе этих книг напишите работу кода. Например:

1. код открывает книгу-источник;
2. проходится по таким-то листам книги-источника;
3. на листе книги-источника код берёт такие-то данные и вставляет на такой-то лист в книге-назначении;
4. и т.д.

[OksanaT]

на листе книги-источника код берёт такие-то данные и вставляет на такой-то лист в книге-назначение;

- вот тут то у меня и проблема.
а книги все одинаковые такие же как я выложила.

[Скрипт]

OksanaT, во всех книгах - и в книге-назначении и в книгах-источниках - всегда есть только три листа?
Проекты;
Задачи;
Отчеты.

[The_Prist]

Как собрать данные с нескольких листов или книг?
Вдруг чем-то поможет. Там готовый код сбора данных. Думаю, сможете прикрутить к своей задаче что-нибудь оттуда.