"Неизвестный формат файла"

[tae1980]

При работе в офисе2003, читаю в цикле все файла в директории. Если попадаются файлы офиса2007 вылетает сабжовое сообщение. Все нужные фильтры стоят. Как его убрать и пропускать файлы? Или открыть и обработать точно так же как и файл офиса2003?

[tae1980]

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

При работе в офисе2003, читаю в цикле все файла в директории. Если попадаются файлы офиса2007 вылетает сабжовое сообщение. Все нужные фильтры стоят. Как его убрать и пропускать файлы? Или открыть и обработать точно так же как и файл офиса2003?

Дополнительные вводные. Открываю файл так:

    Set wb = Workbooks.Open(ПолныйПуть, ReadOnly:=True, UpdateLinks:=0) 'Файл открывается.
    wb.Windows(1).Visible = False

Файлы имеют расширение ".xls". Как я понимаю, в кадастровые палата поставили офисы 2007, а по закону они должны предоставлять файлы с расширением ".xls", вот они переименовывают. Про "Сохранить как..." они на 100% не знают... вот такие там спецы админы... даже ликбез провести не в состоянии. А может и сами не знают.

[EducatedFool]

Попробуйте так: (сам не проверял, - не факт, что будет работать)

On Error Resume Next : err.clear ' сброс ошибки
application.displayalerts=FALSE
Set wb = Workbooks.Open(ПолныйПуть, ReadOnly:=True, UpdateLinks:=0) 'Файл открывается.
wb.Windows(1).Visible = False
application.displayalerts=TRUE
if err then msgbox "файл не открылся": exit sub
' если код до сюда дошел - значит, с файлом всё нормально
' начинаем обработку файла