0ThenMsgbox("Error="&CStr(Err.Number)&""&Err.Description)Err.ClearEndIfEndF" />

×

您收到0封站内信：

×

找答案的高端用户（找答案钻石及双钻级别的用户）将尽可能从此问题下的所有回

答中，为您推荐最佳答案。届时您可以根据推荐数采纳答案。

如果自提问时间起7天内您仍无法选出最佳答案，您可以选择“无满意答案”关闭此问题。

{{item.C_Name}}

问题

wincc的VBS脚本错误提示424

10

910 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

全局脚本如下：
Option Explicit
Function action
On Error Resume Next
Dim ExcelApp
Set ExcelApp = GetObject(,"Excel.Application")
ExcelApp.DisplayAlerts = False
ExcelApp.Quit
Set ExcelApp = Nothing
If Err.Number <> 0 Then
Msgbox("Error="&CStr(Err.Number)&" "&Err.Description)
Err.Clear
End If
End Function
——————————————
关闭excel，不保存。
程序可以执行，但是提示Error=424缺少对象，是哪里错误了？

问题补充：

扫码小程序：

一键登录查看全部问答

完美流星资深学长

被采纳率 40.00%

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

参与「找答案」每周问答福利，提问或回答即可全民瓜分3000西币奖池，发1条也能分西币！用心解答更有机会单篇直发66西币，上不封顶。每周还有快答侠、夺魁答侠等专属称号与丰厚奖励等你来拿！西币可兑换实物奖品，随手互动免费领福利。

使用GetObject(,"Excel.Application")需要EXCEL已经打开。

ISIEMENSID 超级顾问

被采纳率 37.15% 2023-10-17 18:07

提问者对于答案的评价

暂无评价

完美流星

被采纳率40.00% 2023-10-17 16:19

等您来回答换一换

{{item.Title}} {{item.Title}}: {{item.CoinValue}}西币 {{item.VisitNum}}人想问
我来答我来答

本版相关问题换一换

{{item.Title}} {{item.Title}}: {{item.AnswerCount}}个回答 {{item.VisitNum}}人关注

专家置评

专家置评

处理方式

官方认证将此问题置为精华

0/3000

上传图片

处理时长

分钟

置评KPI提醒: 置评 >20% 精华 >5% 打标签 >20%

wincc的VBS脚本错误提示424

西门子找答案

首次回答问题，获得
双倍西币积分！
立即成为技术知识分享的一员!

积分

{{item.MenuName}}

{{item.MenuName}}

本版热门问题更多

{{item.Title}}: {{item.AnswerCount}}个回答 {{item.ReadCount}}人关注

热门视频，猜你喜欢

向您推荐换一换

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

: 每周提问、回答都有奖励，这波福利千万别错过！

热搜榜单
问题榜单


{{index+1}}: {{item.Title}}

{{item.CloseDate}}

{{item.Title}}

{{item.VisitNum}}人关注 {{item.CloseDate}}

找答案微信小程序

提问
搜索

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。