vba - VBA 自动关闭消息框 - 不关闭?
问题描述
我正在 VBA 中尝试 WScript.Shell 脚本。问题是窗口打开但没有在时间结束时关闭。我认为这与“启用”VBScript 有关。
我的代码:
Sub Teste1()
Dim i As Integer
i = CreateObject("WScript.Shell").Popup("Upper Sample text", 1, "Text 2", 0)
End Sub
我找到了这篇文章,我运行代码但问题是一样的,打开窗口但最后没有关闭。 https://docs.microsoft.com/en-us/office/vba/excel/concepts/controls-dialogboxes-forms/automatically-dismiss-a-message-box
解决方案
我对您的代码没有任何问题,我认为这可能是某些 MS Office 应用程序中的错误,请参阅这篇文章。
另一个对我有用的选项是使用 mshta.exe 运行对 Shell.Popup 的 vbscript 调用:
Function Test()
Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run "mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""Test"",3,""Message""))"
End Function
推荐阅读
- python - PYTHON - 对字典列表进行分组
- reactjs - 在 reactjs redux 中从 mongodb 获取集合长度
- java - JavaFX java.lang.NullPointerException:加载 .fxml 时需要位置(问题不是 getClassloader)
- php - 如何比较日期 MariaDB
- python - 我想要一个在 python kivy 中重新启动我的程序的按钮
- javascript - 如何在流行的在线教育网站中实施视频流
- php - 使用php将数据附加到xml文件
- haskell - 简化 HSpec 中的不完整断言
- html - CSS flexbox 中的文本不换行(列表)
- twitter-bootstrap - 具有居中导航品牌的引导导航栏