我完全不是 VBScript 开发人员。但正如通常发生的那样,我必须编写一个小脚本来检查某些内容。它会打开 Excel,向其中写入一些内容,然后将其关闭。但这不是重点。关键是我无法编写错误处理代码。这个脚本:
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
陈述。我究竟做错了什么?
谢谢。
看起来您无法将自定义标签指向 VB 脚本中的错误处理程序。你只能使用
on error goto 0 '(raises exceptions)
on error resume next '(ignores exceptions)
如果您使用第二种语法,您可以通过 Err 全局变量捕获发生的异常:
if Err.Number <> 0 then MsgBox "Exception occurred: " & Err.Description
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)