[Iska]

Как решение, сделал предварительную проверку на существование файла, то есть перед On Error вставил еще один If. »

Просто используйте метод «.FileExists()» объекта автоматизации «Scripting.FileSystemObject» (хорошо известному по WSH), независимо от того, как Вы его будете создавать — ранним, або поздним связыванием. Никакие On Error при этом вовсе не нужны.

[megaloman]

Как решение, сделал предварительную проверку на существование файла

-сделал именно так, как Вы предложили. Но именно этого не хочется делать - куча таблиц с макросами, которые что-то собирают из разных файлов, которые не всегда пришли на момент обработки, хотелось обойтись самым минимумом доработки. В VBS, кстати, Open с On Error отрабатывает как мне надо. ИМХО, наличие файла не гарантирует, что он нормально откроется, on error всё равно нужен.

[Iska]

megaloman, почему не хочется? Если не использовать раннее связывание — «Dim objFSO As New Scripting.FileSystemObject», с созданием в каждом проекте ссылки на библиотеку, — можно обойтись всего семью строчками:

Код:

Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

…

If objFSO.FileExists(strFile) Then
    …
Else
    Msgox "Not found [" & strFile & "]"
End If
…
Set objFSO = Nothing

ИМХО, наличие файла не гарантирует, что он нормально откроется, on error всё равно нужен. »

Что значит «нормально»?

[megaloman]

Подпорченный файл эксел нормально не откроет
В принципе, во мне говорит консерватизм - подайте мне то, что было, и раздражение - нет полной совместимости на совершенно ровном месте. Вообще хватает замены
If Err.Number = 0 Then
на
If FSO.FileExists and Err.Number = 0 (или без err.number), так как FSO я всё равно использую для перемещения обработанных файлов

[Iska]

Подпорченный файл эксел нормально не откроет »

Как такое получается? На моей памяти такого было, ну, пару раз.