Access 2010 VBA：为形状加Excel超链接启动额外进程问题

我来帮你搞定这个问题！首先咱们理清核心矛盾：你的代码会启动第二个Excel进程，本质是对象引用不一致导致Excel识别为跨实例操作；而你后来的修改出现编译错误，是混淆了局部变量和工作表属性的区别。

问题根源拆解 #

1. 外层用了With ws，但内部却用wks.Shapes(i)获取形状——如果wks和ws不是指向同一个工作表对象，就会触发跨实例引用，迫使Excel启动新进程。
2. 你尝试的ws.HyperLinkShape和ws.HyperSubAddress都是错误写法：HyperLinkShape是你定义的局部对象变量，不是工作表ws的内置属性；HyperSubAddress也是自定义字符串变量，同样不属于工作表属性，所以编译器直接报错。

修正后的完整代码片段 #

With ws
    iLeft = 350
    iTop = 140
    iWidth = 160
    iHeight = 30
    
    ' 添加形状并设置样式
    .Shapes.AddShape(msoShapeRoundedRectangle, iLeft, iTop, iWidth, iHeight).Select
    i = .Shapes.Count ' 利用With块上下文，直接引用当前ws的形状集合
    .Shapes.Range(i).ShapeStyle = msoShapeStylePreset33
    .Shapes.Range(i).TextFrame2.VerticalAnchor = msoAnchorMiddle
    .Shapes.Range(i).TextFrame2.TextRange.Characters.Text = "All Data"
    .Shapes.Range(i).TextFrame2.TextRange.Characters.Font.Bold = msoTrue
    .Shapes.Range(i).TextFrame2.TextRange.Characters(1, 8).ParagraphFormat.Alignment = msoAlignCenter
    
    With .Shapes.Range(i).TextFrame2.TextRange.Characters(1, 8).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    
    ' 关键：绑定形状到当前ws对象，避免跨实例引用
    Set HyperLinkShape = .Shapes(i)
    HyperSubAddress = "'All Data'!A1"
    
    ' 正确添加超链接：直接使用已归属到ws的形状变量
    .Hyperlinks.Add Anchor:=HyperLinkShape, Address:="", SubAddress:=HyperSubAddress
End With

核心修改说明 #

1. 统一对象上下文：把所有wks.Shapes改成.Shapes，借助With块的作用域，确保所有操作都指向同一个ws工作表，彻底避免跨实例引用。
2. 修正变量引用逻辑：HyperLinkShape是你定义的局部变量，直接在Hyperlinks.Add中使用即可——因为你已经通过Set HyperLinkShape = .Shapes(i)把它绑定到了当前ws上，不需要额外加ws.前缀。
3. 保留正确的SubAddress格式：你的HyperSubAddress = "'All Data'!A1"是规范写法，因为工作表名含空格，必须用单引号包裹，Excel才能正确识别目标位置。

这样修改后，既不会启动第二个Excel进程，编译错误也会消失，超链接能正常跳转至目标工作表。

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