прерывание работы макроса

[zander]

Имеется следующий макрос, который следит за файлом (проверяя его каждые 3 сек.)и в случае изменения размера файла запускает макрос DoFile.
Проблема в том, что в файл Alex.csv записываются данные другой программой (по событию) и в случае одновременного обращения к файлу Exel для чтения, и программы для внесения данных, макрос останавливается и пишет, что файл не найден. Можно ли как то избежать остановки макроса? Так что бы если файла нет, то макрос не остановился, а проверил бы файл через через следующие 3 сек. и так далее?

Dim StartingCheking As Boolean
Const Signal = "C:\input\Alex.csv"
Dim FileSizeSignal As Long
Const ChekTimeFrame = 3

Sub WatchOverFile()
StartingCheking = True
Do While StartingCheking = True

NewFileSizeSignal = CreateObject("scripting.filesystemo bject").GetFile(Signal).Size
If NewFileSizeSignal > FileSizeSignal Then DoFile: FileSizeSignal = NewFileSizeSignal
t = Timer: While t + ChekTimeFrame > Timer: DoEvents: Wend
Loop
End Sub

[doober]

Попробуйте через номер ошибки
Если все в норме Err.Number =0

Если документ не найден то Err.Number=53
Если документ открыт то Err.Number=57

Таким кодом определите номер своей ошибки.

If Err.Number <> 0 Then

MsgBox(Err.Number)

End If

потом уже зная номер укажете макросу что делать дальше

[EducatedFool]

Или просто поставь первой строкой в макросе WatchOverFile
строку On Error Resume Next

И больше не увидишь сообщений об ошибках.

[zander]

EducatedFool
Как всегда оперативно и профессонально! Респект!