Я получил следующий код для добавления к закрытому коду (защищенному паролем), чтобы можно было отловить ошибку.
On Error Resume Next: Err.Clear
Application.SetOption "Error Trapping", 2
strLine = Application.Run("Comdinheiro.xlam!ExecutaURL_Cliente2", "Fundamentalista3-0-" _
& strData & "-0-" & strCODIGO_CVM & "-" & strDF & "-IFRS-comdinheiro-1")
If Err.Number <> 0 Then
Sleep i * 500 'Espera 0.5 us antes de executar novamente a função com problema
Err.Clear
On Error GoTo 0
strLine = Application.Run("Comdinheiro.xlam!ExecutaURL_Cliente2", "Fundamentalista3-0-" _
& strData & "-0-" & strCODIGO_CVM & "-" & strDF & "-IFRS-comdinheiro-1")
End If
1- Application.setOption «Отлов ошибок», 2: есть ли в VBA какой-либо параметр перехвата ошибок? Я не мог найти его в Интернете.
2- Возобновление при ошибке далее: Err.clear: Я видел следующее возобновление при ошибке или Возобновление при ошибке, но никогда ничего подобного.
Может кто-нибудь объяснить мне пункты 1 и 2.