On Error 语句中的错误 [英] Error in On Error statement

问题描述

我完全不是 VBScript 开发人员.但是通常情况下，我必须编写一个小脚本来检查某些内容.它打开 Excel，向其中写入内容并关闭它.但这不是重点.关键是我无法编写用于错误处理的代码.这个脚本:

I am totally not a VBScript developer. But as it usually happens I have to write a small script to check something. It opens Excel, writes something to it and closes it. But that's not the point. The point is that I cannot manage to write code for error handling. This script:

Sub Work()
On Error GoTo ErrMyErrorHandler
Dim objExcelApp
Dim wb
Dim ws

Set objExcelApp = CreateObject("Excel.Application")
Set wb = objExcelApp.Workbooks.Add(True)
Set ws = wb.Sheets(1)

ws.Cells(1,1).Value = "Hello"
ws.Cells(1,2).Value = "World"

wb.SaveAs("c:\test.xls")
objExcelApp.Quit()
Exit Sub

ErrMyErrorHandler:
MsgBox Err.Description, vbExclamation + vbOKCancel, "Error: " & CStr(Err.Number)    
End Sub

Work()

给出这个错误:

第 2 行是带有 On Error 语句的行.我做错了什么?

Line 2 is the line with the On Error statement. What am I doing wrong?

谢谢.

推荐答案

看起来您无法在 VB 脚本中将自定义标签指向错误处理程序.您只能使用

looks like you can not point custom label to error handler in VB Script. You can only use

on error goto 0 '(raises exceptions)
on error resume next '(ignores exceptions)

如果你使用第二种语法，你可以通过 Err 全局变量捕获发生的异常:

if you use the second syntax, you can catch occurring exceptions via Err global variable:

  if Err.Number <> 0 then MsgBox "Exception occurred: " & Err.Description

这篇关于On Error 语句中的错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！