Question

我为我的客户创建了一个小插件。它为工具栏添加了2个按钮，工作正常。现在我想添加第三个按钮来显示版本号和一个小帮助文本（15行）我想知道这样做的简单方法是什么。我能想到的选择：

在帮助＆amp;处理中插入（复制）一张纸当前工作簿中的版本（高效且最容易做，但有点粗鲁和干扰）
使用标签控件中的帮助文本和OK按钮创建一个VBA表单（非常好，但标签内容不能格式化为AFAIK）
将信息写入本地HTML文件并打开该文件（可能更通用？）

任何（其他）建议？
注意：我的电脑上没有管理员权限，因此不包括涉及其他软件的解决方案。

Answer 1

根据@Arul的建议，这是我创建的UserForm的代码。

Option Explicit

Private helpFileName As String

Private Sub UserForm_Initialize()
    helpFileName = Environ("temp") & "\test.htm"
    writeHelpFile
    WebBrowser1.Navigate "file:\\" & helpFileName
End Sub

Private Sub writeHelpFile()
    Dim fso As Object, Fileout As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Fileout = fso.CreateTextFile(helpFileName, True, True)
    Fileout.Write Sheet4.Range("A1")
    Fileout.Close
End Sub

Private Sub UserForm_Terminate()
    Kill helpFileName
End Sub

如何为Excel VBA加载项创建简单的帮助页面

1 个答案: