VBA MsgBox 限制 - 输出超过 1024 个字符答案

【问题标题】：VBA MsgBox Limitations - output more than 1024 charactersVBA MsgBox 限制 - 输出超过 1024 个字符
【发布时间】：2018-06-29 05:39:00
【问题描述】：

我想在 MsgBox 中显示长消息（超过 1024 个字符）。我可以使用什么方法。我发现了这个：

Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")

你能告诉我有什么方法可以实现吗？也许有人知道使用 Wscript.Shell 的更好解决方案或缺点？？

哦，还有一件事，我想将此代码添加到我创建的加载项中，并且我想将其分发给其他同事..

【问题讨论】：

WScript.Shell 是一个可用于运行其他应用程序的对象。是什么让你觉得它与 MsgBox 有任何关系？ .您将需要包含指向您获得此示例和一些相关代码的链接，而不是“愿望清单”！还可以查看help center 和“How to Ask”并了解 aa minimal reproducible example”。
objShell.Run "mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""" & MessageBody & """," & SecondsToAutoClose & ",""" & MessageTitle & """))" 将允许您在不暂停宏的情况下弹出类似窗口的 msgbox。但未检查字符数限制。
@PatricK 我正在寻找那个代码。 449 字符最大值

标签： vba msgbox

【解决方案1】：

所以创建一个看起来像 MsgBox 的表单：

我使用 TextBox 而不是 Label 并将背景颜色设置为灰色。我还将 TextBox 滚动属性指定为“垂直滚动条”，因此如果文本超出可视限制，您将能够滚动。

随意将 TextBox 边框属性设置为 Not Set，它是只读属性为 True 并添加 MsgBox 图片框以获得更真实的外观。

【讨论】：

@tomek198823 如果您想将其提供给同事使用，您可能更愿意将代码添加为 . Net DLL，方法 3：stackoverflow.com/questions/37074533/…