Excel 2016 vba 错误 1004 - 创建索引时应用程序定义或对象定义错误

Question

我刚开始遇到 Excel 工作簿的问题，我最初使用 excel 2010 创建并使用了近 2 年，IT 更新了我们的办公室计算机，现在我安装了带有 office 2016 的 win10。

我正在使用的 VBA 代码：

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long

l = 1

    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With


    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
            l = l + 1
                With wSheet
                    .Range("A1").Name = "Start_" & wSheet.Index
                    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
                    SubAddress:="Index", TextToDisplay:="Back to Index"
                End With

                Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
                SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
    Next wSheet

End Sub

当我打开调试器时，以 .Hyperlinks.Add Anchor 和 SubAddress 开头的行被标记为黄色...你能帮帮我吗？ 谢谢...

Answer 1

写Hyperlinks.Add按空格，看看参数。可能其中一些是从 2010 年开始更改的。然后根据更改调整您的代码：

或者在上面的那一行写debug.print wSheet.Index，看看有没有报错。 （这里只是猜测。）