Здравствуйте! Передо мной стоит задача открыть файлы и перечислить список файлов excel в папке. Без знаний VBA с помощью интернета составила макрос, он работает, переписывает названия файлов в папке, но если натыкается на файл, который выдает ошибку при открытии, он прекращает работу. Ошибка - например:
"В книге обнаружено содержимое, которое не удалось прочитать. попробовать восстановить содержимое книги?"
Помогите пожалуйста дописать код так, чтобы при открытии файла с ошибкой, макрос переходил к следующему файлу.
r = Range("A65536").End(xlUp).Row + 1 'íàõîäèì ïåðâóþ ïóñòóþ ñòðîêó
For Each FileItem In SourceFolder.Files
If FileItem.Name Like "*" & ".xls" & "*" Then
Workbooks.Open FileItem.Path, UpdateLinks:=0
ЭтаКнига.Activate
Cells(r, 1).Formula = FileItem.Name
Cells(r, 2).Formula = FileItem.Path
Workbooks.Item(FileItem.Name).Activate
r = r + 1
ActiveWorkbook.Close SaveChanges:=False
End If
X = SourceFolder.Path
Next FileItem
"В книге обнаружено содержимое, которое не удалось прочитать. попробовать восстановить содержимое книги?"
Помогите пожалуйста дописать код так, чтобы при открытии файла с ошибкой, макрос переходил к следующему файлу.
r = Range("A65536").End(xlUp).Row + 1 'íàõîäèì ïåðâóþ ïóñòóþ ñòðîêó
For Each FileItem In SourceFolder.Files
If FileItem.Name Like "*" & ".xls" & "*" Then
Workbooks.Open FileItem.Path, UpdateLinks:=0
ЭтаКнига.Activate
Cells(r, 1).Formula = FileItem.Name
Cells(r, 2).Formula = FileItem.Path
Workbooks.Item(FileItem.Name).Activate
r = r + 1
ActiveWorkbook.Close SaveChanges:=False
End If
X = SourceFolder.Path
Next FileItem