excel - 在子文件夹的指定单元格中添加超链接

Question

我想制作一个宏，它将为指定的单元格添加超链接（基于该单元格中的文本）。例如，如果单元格 A1 包含文本“Document1”，则宏将在指定文件夹路径及其子文件夹中搜索 Document1.pdf 文件。现在我只有一个可以使用精确文件夹路径的宏，我想让它在未来更加通用。

    Private Sub Workbook_Open()

Dim lastRow As Long
Dim myPath As String, fileName As String

myPath = "\\192.168.00.01\My main folder\Documents\General\My files\" 'SET TO WHERE THE FILES ARE LOCATED

lastRow = Range("A800").End(xlUp).Row

For i = 2 To lastRow

    fileName = myPath & Range("A" & i).Value & "*.pdf"
    
    If Len(Dir(fileName)) <> 0 Then 'IF THE FILE EXISTS THEN
    
        ActiveSheet.Hyperlinks.Add Range("A" & i), myPath & Dir(fileName)
    
    End If
    
Next
End Sub

标签： excelvbahyperlink

Answer 1

您始终可以将具有路径位置的单元格添加到工作表中，让它成为A1，然后像这样将该值添加到您的宏中： myPath = Range("A1").Value