Открытие группы файлов и выполнение в них макроса.

[Hugo121]

После того, как файл открыт, срабатывает строка

Application.Run "test.xlsm!Лист4.CommandButton1_Click"

Но дальше проверить не смог - нет у меня такого пути/файла, как хочет код.
А переносить код в файл-инструмент думаю и впрямь не стОит

[drNabla]

спасибо, щас попробую...
столкнулся с другой проблемой ещё более глупой - а как это дело запустить?
вроде запустил просто через запуск макроса, щас выдаёт всякие ошибки, пока разбираюсь..

[drNabla]

возникла неточность - строчка

Application.Run "test.xlsm!Лист4.CommandButton1_Click"

вызывает только файл с именем test, а надо все те которые есть в папке, как это подправить?

[Hugo121]

В цикле открываете файлы, берёте в переменную их имя.
Далее в коде примерно так:

переменная_с_именем_файла = wb.Name
...
...
Application.Run переменная_с_именем_файла & "!Лист4.CommandButton1_Click"

Ну или если это имя файла нигде больше не нужно - можно без переменной, сразу подставляйте wb.Name

[DiemonStar]

А может лучше сделать выполнение макроса при открытии книги и в нём открывать следующий файл из директории?

[drNabla]

Вечером попробую с wb.Name. Щас решил проблему проще - создал много папок и в каждой папке отдельный файл с одним и тем же именем.... надо было срочно поставить на ночь считаться. Появилась другая проблема - при появлении какой либо ошибки в одном из файлов, весь процесс останавливался. Можно это как-то решить? (при возникновении ошибки процесс вычисления тормазится этот файл игнорируется закрывается и открыывается следующий)
про запуск макроса при открытии - мне потом с этими файлами ещё много рабоатьа, а чтоб макрос запускался при открытии - это не приемлимо... действующий вариант полностью удовлетворяет.

[Hugo121]

Ошибки можно обработать - почитайте про это

Можно просто добавить on error resume next, но думаю Вам нужно ещё анализировать значение err и в зависимости от этого сохранять или нет файл, и плюс ещё вероятно нужно писать лог, чтоб утром посмотреть, что там наработало
Т.е. перед открытием файла сбрасываем err, открываем-запускаем, смотрим err - сохраняем или нет, пишем в лог. Как-то так...

[drNabla]

всё гораздо проще - аналог логов у меня есть, плюс я добавил выполнение ещё парочки кнопок, я точно знаю какие обработались какие нет. Природа ошибок как правила одна и та же, в одном месте возникает деление на ноль, я потом вручную даже 10 файлов могу подправить.
Как я понимаю мне после это должно выглядеть так:

For Each file In fso.Files
        If file.Name Like "*.xls*" Then
            Set wb = Workbooks.Open(file)
            With wb.Sheets(5)
            
            Application.Run wb.Name & "!Лист4.CommandButton1_Click"
            Application.Run wb.Name & "!Лист5.CommandButton7_Click"
            Application.Run wb.Name & "!Лист5.CommandButton10_Click"
            Application.Run wb.Name & "!Лист5.CommandButton11_Click"
            on error resume next

            End With
            wb.Close True
        End If
    Next

или надо после каждого обращения к кнопке ставить строчку с ошибкой на случай ошибки в одной из них?

[Hugo121]

Попробуйте так:

    On Error Resume Next
    For Each file In fso.Files
        If file.Name Like "*.xls*" Then
        
            Set wb = Workbooks.Open(file)
            Application.Run wb.Name & "!Лист4.CommandButton1_Click"
            Application.Run wb.Name & "!Лист5.CommandButton7_Click"
            Application.Run wb.Name & "!Лист5.CommandButton10_Click"
            Application.Run wb.Name & "!Лист5.CommandButton11_Click"

            If Err Then wb.Close True Else wb.Close 0
            'или вероятно можно так:
            'wb.Close (Err = 0)
            Err.Clear
            
        End If
    Next

With wb.Sheets(5) в этом куске не нужно (если это нужно в полном варианте - можете оставить).

[drNabla]

хорошо попробую, может даже щас на день запущу, вечером приду проверю, отпишусь о получившемся.