On error resume не хочет работать

[Loshara]

Уважаемые знатоки

У меня при выполнении программы (частично код приведен ниже) при чтении csv файла возникает ошибка "файл занят" (это бывает). Приходится "вручную" нажимать "кнопку" - "ДАЛЕЕ". Я планировал, что если внесу в вызывающих подпрограммах строку On Error Resume Next при возникновении данной ошибки "курсор" выполнения вернется обратно и продолжет выполнение следующей части программы, но этого не происходит. Как заставить работать в этом случае эту команду?

Sub auto_open()

...
On Error Resume Next
...
If Ping("172.18.13.112") Then
b = dan_petch(Dtn, dtk1)
b = dan_petch1(Dtn, dtk1)
b = dan_petch2(Dtn, dtk1)
b = dan_petch3(Dtn, dtk1)
End If

Application.OnTime Now + TimeValue("00:13:00"), "ontimer1"

End Sub

Function dan_petch(dr1 As String, dr2 As String)

...

Sheets(3).Select
Cells.Select
Selection.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;\\172.18.13.112\Archiv\Pech1_pr\P_1_Pr0.csv", Destination:=Range("$A$1" _
        ))
        .Name = "P_1_Pr0"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertEntireRows
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        .Delete
    End With
...
End Function

Sub ontimer1()
...

If Ping("172.18.13.112") Then
b = dan_petch(Dtn, dtk1)
b = dan_petch1(Dtn, dtk1)
b = dan_petch2(Dtn, dtk1)
b = dan_petch3(Dtn, dtk1)
End If
Application.OnTime Now + TimeValue("00:13:00"), "ontimer1"

End Sub

[Кардаган]

Не туда строку влепили. Строку надо ставить перед строками, обозначающими открытие файла.

[Loshara]

Сообщение от Кардаган

Не туда строку влепили. Строку надо ставить перед строками, обозначающими открытие файла.

НЕт влепил туда куда нужно. поверьте (можете проверить) . когда во вложенной процедуре возникает ошибка то "передвигается" (игнорируя тело процедуры) в вызывающей на следующую строку. именно это и нужно.

[27102014]

А не пробовали имитировать нажатие кнопки "Далее" ?

csv файлы можно открывать через Excel

[27102014]

Как вариант заменить On Error Resume Next на On Error GoTo

Или скомбинировать обработчики ошибок таким образом, чтобы после возникновения ошибки макрос выходил к месту, с которого мог бы продолжить работу

[Казанский]

Попробуйте

Application.DisplayAlerts = False

Перед окончанием макроса не забудьте переключить на True.

[Loshara]

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

А не пробовали имитировать нажатие кнопки "Далее" ?

csv файлы можно открывать через Excel

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

Как вариант заменить On Error Resume Next на On Error GoTo

Или скомбинировать обработчики ошибок таким образом, чтобы после возникновения ошибки макрос выходил к месту, с которого мог бы продолжить работу

А как это сделать?

[Loshara]

Сообщение от Казанский

Попробуйте

Application.DisplayAlerts = False

Перед окончанием макроса не забудьте переключить на True.

Попробую . Но что эта команда значит

[Iron Monk]

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

Попробую . Но что эта команда значит

Судя по виду - отключает выводимые сообщения. Слово Alerts сами переведете?

[Loshara]

Сообщение от Iron Monk

Судя по виду - отключает выводимые сообщения. Слово Alerts сами переведете?

С переводом я разобрался сразу, но что команда делает не совсем понятно. Какие сообщения отключаются. если сообщение предупреждения это не совсем то что нужно, если уведомления о ошибке другой вопрос. Но судя по синтаксису скорее всего первое. Похоже что Bezdar в своем стате http://programmersforum.ru/showthread.php?t=280544 столкнулся с подобной проблемой