问题定义:编写 wscript 以单击错误消息对话框的“确定”按钮并获取/读取对话框中给出的错误消息。错误消息是通过宏验证 Excel 生成的。
实现:我可以点击msgbox的“OK”按钮
卡住:我无法阅读错误消息
代码编写:
Set oShell = CreateObject("WScript.Shell")
Do
bResult = oShell.AppActivate("Save As")
If bResult = True Then
oShell.SendKeys "{ENTER}"
Exit Do
End If
WScript.Sleep 500
Loop