VBA如何捕获异常?

用 On Error GoTo语句可以捕获异常。具乎手雀体做法：

1. 在需要捕获异常的薯陪过程开始处写语句：

On Error GoTo ErrL 'ErrL为语句标号

2. 在该过程结束语句（End Sub）之前安排如下代码：

GoTo EndOk

ErrL:

'此处为异常处理代码

EndOk:

这时，整个过程的代码结构为：

Sub XX()

On Error GoTo ErrL

'......

GoTo EndOk

ErrL:

'此处为异常处理岁早代码

EndOk:

End Sub

软件版本：Office2007 方法如下： 在VBA中如果使用了系统不认可的对象表示方模闭核法等，例如下面的Range表示方法，系统就不认态桐可： 这样，在运行程序时，就会提示错误： 将代码中的错误更正，用正确的表示方法来使旦掘用对象或应用程序，就不会出错了：

比如：Shell "WINWORD.EXE C:\12345.doc", vbNormalFocus

在excel中，横向态没选中两个单元格帆衫纳，就打开c:\下的12345.doc文件塌如

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row >2 And Target.Rows.Count = 1 And Target.Columns.Count = 2 Then

Shell "WINWORD.EXE C:\12345.doc", vbNormalFocus

End If

End Sub

---