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

Question

我刚开始遇到一个问题，我首先使用excel 2010创建并使用了近两年的Excel工作簿，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锚和子地址开始标记yelow当我打开debuger ......你能帮助我吗？ 谢谢...

Answer 1

写Hyperlinks.Add按空间，并看看参数。也许他们中的一些是从2010年开始改变，那么调整你的代码按的变化：

或以上行写debug.print wSheet.Index并检查它是否给出了一个错误。 （只是猜测在这里。）