Здравствуйте! На просторах нашел такой макрос, но он просто открывает и закрывает все книги в папке.
Не подскажете, как в нем между этим еще и выполнять макрос mac и не прописывать каждый раз полный путь, он все время разный?
Не подскажете, как в нем между этим еще и выполнять макрос 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 |