3

问题定义:编写 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 
4

0 回答 0