Страницы: 1
RSS
Выполнение макроса, выполняющего другой макрос во всех книгах директории
 
Здравствуйте! На просторах нашел такой макрос, но он просто открывает и закрывает все книги в папке.
Не подскажете, как в нем между этим еще и выполнять макрос mac и не прописывать каждый раз полный путь, он все время разный?
Код
Sub OpenFilesVBA()
    Dim Wb As Workbook
    Dim strFolder As String
    Dim strFil As String

    strFolder = "h:\готово\"
    strFil = Dir(strFolder & "\*.xls*")
    Do While strFil <> vbNullString
        Set Wb = Workbooks.Open(strFolder & "\" & strFil)
        
        Wb.Close False
        strFil = Dir
    Loop
End Sub

 
 
макрос  mac  выполните так:
Код
Sub OpenFilesVBA()
    Dim Wb As Workbook
    Dim strFolder As String
    Dim strFil As String
 
    strFolder = "h:\готово\"
    strFil = Dir(strFolder & "\*.xls*")
    Do While strFil <> vbNullString
        Set Wb = Workbooks.Open(strFolder & "\" & strFil)
        mac 
        Wb.Close False
        strFil = Dir
    Loop
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Ігор Гончаренко, спасибо но не работает. Я так уже пробовал.
 
Макрос Mac существует? В каком модуле записан? Глянуть можно на него?
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх