修改VBA代码：指定单元格插文件超链接及自定义设置需求

针对你提供的VBA代码存在的三个问题，以下是修改后的完整代码及对应说明：

修改后的完整代码 #

Sub CreateHyperLink()
    Dim fd As Object, fPath As String, fName As String, cel As Range
    
    ' 固定目标单元格为Summary工作表的G7
    Set cel = ThisWorkbook.Worksheets("Summary").Range("G7")
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        ' 修改默认打开路径为指定的invoices文件夹
        .InitialFileName = Environ("USERPROFILE") & "\xxxxx\invoices\"     ' 替换xxxxx为实际子文件夹名，末尾必须加\
        .AllowMultiSelect = False
        .Title = "Please select a file."
        .Filters.Clear
        If .Show = True Then
            fPath = fd.SelectedItems(1)
            ' 正确提取文件名（修正原代码中路径分隔符定位错误）
            fName = Mid(fPath, InStrRev(fPath, "\") + 1)
        Else
            Exit Sub
        End If
    End With
    
    cel.Hyperlinks.Add Anchor:=cel, Address:=fPath, TextToDisplay:=fName
End Sub

关键修改说明 #

• 固定目标单元格：删除原代码中弹出单元格选择窗口的逻辑，直接通过ThisWorkbook.Worksheets("Summary").Range("G7")指定目标位置，无需手动选择。
• 修改默认路径：将初始路径从用户根目录改为指定的invoices文件夹，注意路径末尾必须保留反斜杠\，请把代码中的xxxxx替换为实际的子文件夹名称。
• 正确提取文件名：原代码中InStrRev(fPath, "")的参数错误（空字符串无法定位路径分隔符），改为InStrRev(fPath, "\")后，能准确找到最后一个反斜杠的位置，从而提取出纯粹的文件名，避免显示完整路径。

内容的提问来源于stack exchange，提问作者Croon