Hyperlinks.Follow错误：运行时错误“9”：下标越界

Question

我启动我得到的下标越界在纸张选择线的超级链接后

'Hyperlink aktivieren und Sheet Overview Results 
Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True 
Worksheets("Overview Results").Select 
AuswerteWb = ActiveWorkbook.Name 
'ActiveWindow.Close 

的事情是，我有一个应该使用文件路径作为超链接的宏，并从超链接文件中选择工作表“overview results”。

，但我得到

Run-time error '9': Subscript out of range

Answer 1

为什么使用Hyperlinks.Follow而不是Workbooks.Open？如果您正在使用的超级链接打开一个新的工作簿中，你会想要做这样的事情：

Dim OpenedFile as Workbook 

' Skip any errors that would occur with a null link 
On Error Resume Next 
Set OpenedFile = Workbooks.Open(Selection.Value) 
On Error GoTo 0 

' Ensure that the file is set before operating on it 
If Not OpenedFile Is Nothing Then 
    Dim TargetWorksheet as Worksheet 

    On Error Resume Next 
    Set TargetWorksheet = OpenedFile.Worksheets("Overview Results") 
    On Error GoTo 0 

    ' We use the same Nothing check before operating on the worksheet 
    If Not TargetWorksheet Is Nothing Then 
     TargetWorksheet.Activate 
    End If 
End If 

AuswerteWb = OpenedFile.Name 
'ActiveWindow.Close 

我强烈建议您了解资格的声明（例如，Worksheets("")是不合格的声明），因为这会导致你很多头痛。同样，请避免Selection,Select,Activate,ActiveWorkbook等。