VBA根据另一个单元格中的特定文本打开超链接

Question

我正在尝试创建一个 VBA 以在单元格 E 中查找星期一，然后在 D 中打开它旁边的单元格中的超链接。

我已经尝试了以下但它不起作用。当我运行它时什么都没有发生。这些文件在我的网络上，超链接附加到。

enter image description here

Sub OpenFile()
         Dim oH As Hyperlink
    For Each oH In Hyperlinks
          If oH.Range.Cells(1, 2).Text = "Monday" Then If Dir(oH.Address) > "" Then Workbooks.Open oH.Address
    Next
End Sub 

Answer 1

Sub OpenFile()
    Dim i As Long
    Dim rowLast As Long
    Dim filePath As String
    'Dim loopLink As Hyperlink 'Uncomment if there can be multiple links in column D cells
    
    With Sheet1 'Change the worksheet name to the correct one
        rowLast = .Range("E" & .Rows.Count).End(xlUp).Row
    
        For i = 2 To rowLast 'Loop from 2nd row to the last row
            If .Cells(i, 5).Value = "Monday" Then 'Validation if cell in Column E is "Monday"
                With .Cells(i, 4)
                    'Single link version, change to below version for multiple links
                    If .Hyperlinks.Count = 1 Then
                        filePath = .Hyperlinks(1).Address
                        If Dir(filePath) <> vbNullString Then Application.Workbooks.Open filePath
                    End If
                    
                    'Multiple links version
                    'For Each loopLink In .Hyperlinks
                    '   filePath = loopLink.Address
                    '   If Dir(filePath) <> vbNullString Then Application.Workbooks.Open filePath
                    'Next loopLink
                End With
            End If
        Next i
    End With
End Sub