求助：用VBScript为Excel各工作表添加返回TOC工作表的超链接

原代码问题分析 #

1. 依赖Workbooks(1).Activate定位工作簿，易受其他打开的工作簿干扰，不如直接使用已赋值的objWorkbook稳定
2. Cells("A1")的写法在VBScript中可能引发解析异常，建议改用Range("A1")或Cells(1,1)
3. 循环内重复获取TOC工作表的目标单元格，造成冗余操作
4. 超链接显示文本依赖sHyperlink.Value，若A1为空则超链接无可见文本

修正后的代码 #

Dim objExcel, objWorkbook, shCount, ws, destRange
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False

' 替换为你的实际文件路径
Set objWorkbook = objExcel.Workbooks.Open("C:\你的路径\test.xlsx",,False)
' 提前获取TOC工作表的目标锚点
Set destRange = objWorkbook.Worksheets(1).Range("A1")

shCount = objWorkbook.Worksheets.Count
For I = 2 To shCount
    Set ws = objWorkbook.Worksheets(I)
    ' 为当前工作表A1单元格添加返回TOC的超链接
    ws.Hyperlinks.Add _
        Anchor:=ws.Range("A1"), _
        Address:="", _
        SubAddress:="'[" & objWorkbook.Name & "]" & destRange.Parent.Name & "'!" & destRange.Address, _
        TextToDisplay:="返回TOC"
Next

objWorkbook.Save ' 直接保存原文件；如需另存为，可替换为SaveAs并指定路径
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing

关键修正说明 #

• 移除不必要的Wscript.Sleep，Excel对象打开文件无需额外等待
• 用objWorkbook直接操作目标工作簿，避免激活操作带来的不确定性
• 将TOC目标单元格的获取移至循环外，提升代码效率
• 明确设置TextToDisplay为固定文本，确保超链接可见且统一
• 优化超链接的SubAddress格式，兼容工作簿/工作表名含空格的场景

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