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

问题描述 投票:1回答:1

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

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

任何(其他)建议? 注意:我的电脑上没有管理员权限,因此不包括涉及其他软件的解决方案。

vba excel-vba excel
1个回答
0
投票

根据@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
© www.soinside.com 2019 - 2024. All rights reserved.