如何用VBA在Excel侧边栏显示HTML（类似帮助页面）

可以通过Excel任务窗格结合WebBrowser控件实现类似内置帮助的侧边栏效果，以下是适配xlam加载项的完整实现方案：

核心代码 #

将以下代码添加到xlam加载项的标准模块中：

Option Explicit

Private g_objTaskPane As CommandBarPopup

' 初始化帮助侧边栏（建议在加载项启动时调用）
Sub InitHelpTaskPane()
    Dim cmdBar As CommandBar
    Dim cmdBarCtrl As CommandBarControl
    
    ' 清理已存在的同名侧边栏
    On Error Resume Next
    Application.CommandBars("HelpSidePane").Delete
    On Error GoTo 0
    
    ' 创建左侧固定的临时任务窗格
    Set cmdBar = Application.CommandBars.Add(Name:="HelpSidePane", Position:=msoBarLeft, Temporary:=True)
    cmdBar.Visible = True
    
    ' 嵌入WebBrowser控件
    Set cmdBarCtrl = cmdBar.Controls.Add(Type:=msoControlObject, ID:=1)
    cmdBarCtrl.ProgID = "Shell.Explorer.2"
    
    Set g_objTaskPane = cmdBar
End Sub

' 加载指定的帮助内容（支持网页URL或本地HTML路径）
Sub LoadHelpContent(strUrlOrPath As String)
    Dim objWebBrowser As Object
    
    If g_objTaskPane Is Nothing Then InitHelpTaskPane
    
    ' 获取WebBrowser实例并加载内容
    Set objWebBrowser = g_objTaskPane.Controls(1).Object
    objWebBrowser.Navigate strUrlOrPath
    
    g_objTaskPane.Visible = True
End Sub

' 示例：加载本地HTML帮助文件
Sub ShowLocalHelp()
    ' 替换为你的本地帮助文件路径，可使用相对路径结合加载项目录
    Dim strHelpPath As String
    strHelpPath = ThisWorkbook.Path & "\HelpDocs\index.html"
    Call LoadHelpContent(strHelpPath)
End Sub

' 示例：加载在线帮助页面
Sub ShowOnlineHelp()
    Call LoadHelpContent("https://your-help-domain.com/excel-addin-guide.html")
End Sub

' 关闭帮助侧边栏
Sub CloseHelpTaskPane()
    If Not g_objTaskPane Is Nothing Then g_objTaskPane.Visible = False
End Sub

配置步骤 #

1. 启动时自动初始化：
   打开xlam的ThisWorkbook模块，添加以下代码确保加载项启动时完成侧边栏初始化：

   Private Sub Workbook_Open()
       Call InitHelpTaskPane
   End Sub
   

2. 添加触发入口：
   在Excel自定义功能区或快速访问工具栏中添加按钮，绑定ShowLocalHelp或ShowOnlineHelp宏，点击即可打开侧边栏显示帮助内容。

注意事项 #

• 本地HTML路径支持绝对路径，或通过ThisWorkbook.Path拼接相对路径（需确保帮助文件与加载项目录结构匹配）。
• 需确保Excel信任该加载项（在信任中心设置中允许宏运行），否则WebBrowser控件可能无法正常加载。
• 使用的Shell.Explorer.2控件支持完整HTML5特性，可实现带交互、样式的帮助页面，体验接近Excel内置帮助。

内容的提问来源于stack exchange，提问作者FloydP