Как заставить код работать во всех книгах указанной папки

[ertree]

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

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

В чем проявляется проблема?
Выскакивает ошибка? Если да, то на какой строке?

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

т.е. при запуске предлагается выбрать папку, а после нажатия кнопки ОК происходит НИЧЕГО, т.е. никакие изменения в файле не происходят, но и об ошибках не пишется.

макросы, применяемые непосредственно в документе, работают.

пример неработающего

Sub макрос()
 Dim sFolder As String, sFiles As String, li As Long
 With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
 End With
 Application.ScreenUpdating = False
    sFiles = Dir(sFolder & Application.PathSeparator & "*.xls*")
 On Error Resume Next
 Do While sFiles <> ""
        Workbooks.Open sFiles

'начало
макрос
' конец
        ActiveWorkbook.Close SaveChanges:=True
        sFiles = Dir
    Loop
    Application.ScreenUpdating = True
 End Sub

[EducatedFool]

ertree, приношу свои извинения
Код действительно «кривой», требует переделки
(я взял за основу код топикстартера, и не заметил ошибку)

Правильно будет вместо

Workbooks.Open sFiles

написать

Workbooks.Open sFolder & Application.PathSeparator & sFiles

и всё заработает

[ertree]

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

и всё заработает

Уважаемый EducatedFool!

Спасибо вам огромное!

Всё заработало в лучшем виде, и радости моей нет предела.