191问答库 > excel中vba宏，在执行时如果超时出错了怎么让它出错后重新执行这段代码

excel中vba宏，在执行时如果超时出错了怎么让它出错后重新执行这段代码

2024-11-04 10:58:11

推荐回答（1个）

回答1：

你把连接数据库写成函数，主程序可以抛出异常，在异常处理那里调用你的函数

比如我写的

Private Sub UserForm_Click()
On Error GoTo ErrL
Dim s As String
s = ThisWorkbook.Sheets(1).Cells(1, 1)
MsgBox (s)
GoTo EndOk
ErrL:
MsgBox ("出错!")
EndOk:
End Sub

当点击窗体输出A1值，如果我把上面某个对象写错，那么获取不到出现异常，就会执行Errl:里的代码

格式：

On Error GoTo ErrL

可以首次调用sql函数

GoTo EndOk
ErrL:

这里调用你的sql函数

EndOk:

excel中vba宏，在执行时如果超时出错了 怎么让它出错后重新执行这段代码

excel中vba宏，在执行时如果超时出错了怎么让它出错后重新执行这段代码