问题：处理计算机上未安装Excel的情况
如果用户未安装Excel，则运行程序会出现错误。我们可以用On Error GoTo Line 语句来处理错误。
示例代码：
Private Sub Command1_Click()
On Error GoTo error
Dim xl As excel.Application
Set xl = CreateObject("excel.Application") '如果未安装Excel则创建对象失败
xl.Workbooks.Add
xl.Range("a1").Value = "www.rrgod.com"
xl.Visible = True
Exit Sub
error:
MsgBox "请先安装Excel！", vbOKOnly Or vbInformation, "注意"
End Sub
已经有(0)位网友发表了评论，你也评一评吧！
原创文章如转载，请注明：转载自Eddy Blog
原文地址：http://www.rrgod.com/program/341.html 欢迎订阅Eddy Blog。