Excel本地HTML文件锚点超链接失效问题求助

操作步骤： #

1. 开启Excel开发工具
   若界面未显示「开发工具」选项卡，依次点击「文件」→「选项」→「自定义功能区」，勾选右侧的「开发工具」后确定。

2. 插入VBA模块
   点击「开发工具」→「Visual Basic」（或按快捷键Alt+F11）打开VBA编辑器。右键点击左侧你的工作簿名称，选择「插入」→「模块」。

3. 粘贴VBA代码
   在模块的代码窗口中粘贴以下代码：

   Sub OpenHTMLWithAnchor()
       Dim targetURL As String
       
       ' 读取当前单元格的超链接地址
       If ActiveCell.Hyperlinks.Count = 0 Then
           MsgBox "当前单元格无超链接，请检查！"
           Exit Sub
       End If
       targetURL = ActiveCell.Hyperlinks(1).Address
       
       ' 调用默认浏览器打开带锚点的URL
       Shell "cmd.exe /c start """" """ & targetURL & """", vbHide
   End Sub
   

4. 绑定宏到单元格/按钮

   • 绑定到单元格：右键目标单元格→「指定宏」，选择OpenHTMLWithAnchor后确定，点击该单元格即可触发跳转。
   • 绑定到按钮：点击「开发工具」→「插入」→选择「表单控件」里的按钮，在工作表上拖动绘制按钮，弹出的窗口中选择OpenHTMLWithAnchor，修改按钮文字后确定，点击按钮即可跳转。

关键说明： #

• 确保单元格内的超链接是完整的file://格式，例如file://C:/你的文件夹/文档.html#4.5（正斜杠）或file://C:\\你的文件夹\\文档.html#4.5（双反斜杠）。
• Excel自带超链接会自动截断锚点，通过Shell调用系统默认浏览器可避开这个问题，锚点能正常生效。
• 首次运行宏时，若弹出宏禁用提示，需进入「文件」→「选项」→「信任中心」→「信任中心设置」，将宏设置为「启用所有宏」（或添加当前工作簿到信任位置）。

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