问题根源分析 #

你遇到的运行时错误'1004'，核心是代码逻辑的关键错误：

• Workbooks.Open只能用于打开Excel工作簿（.xlsx/.xls等格式），完全无法处理PDF文件，这是导致"找不到文件"报错的直接原因
• linkfile.Parent获取的是超链接所在的单元格对象，直接拼接成文件名会出现异常，无法正确提取原PDF的文件名

修正后的代码实现 #

我们改用文件复制的思路（目标PDF已经存在于本地，不需要打开再保存），用FileSystemObject安全处理文件操作：

Sub CopyPDFsFromHyperlinks()
    Dim linkfile As Hyperlink
    Dim fso As Object
    Dim sourcePath As String
    Dim saveLocation As String
    Dim fileName As String
    
    ' 设置目标保存文件夹（请替换为你的实际路径）
    saveLocation = "C:\YourTargetFolder\"
    
    ' 初始化文件系统对象（后期绑定，无需额外引用）
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 先检查目标文件夹是否存在，不存在则自动创建
    If Not fso.FolderExists(saveLocation) Then
        fso.CreateFolder saveLocation
    End If
    
    ' 遍历指定工作表中的所有超链接（替换为你的工作表名称）
    For Each linkfile In ThisWorkbook.Sheets("SheetName").Hyperlinks
        sourcePath = linkfile.Address
        
        ' 处理本地超链接可能带有的file:///前缀
        sourcePath = Replace(sourcePath, "file:///", "")
        ' 把URL格式的斜杠转换成Windows系统的反斜杠
        sourcePath = Replace(sourcePath, "/", "\")
        
        ' 检查源PDF文件是否存在
        If fso.FileExists(sourcePath) Then
            ' 提取原PDF的文件名
            fileName = fso.GetFileName(sourcePath)
            
            ' 复制文件到目标文件夹，OverWriteFiles:=True表示允许覆盖同名文件
            fso.CopyFile sourcePath, saveLocation & fileName, OverWriteFiles:=True
            ' 可选：在立即窗口输出复制成功提示，方便排查
            Debug.Print "已成功复制：" & fileName
        Else
            Debug.Print "警告：文件不存在，跳过：" & sourcePath
        End If
    Next linkfile
    
    ' 释放对象，避免内存占用
    Set fso = Nothing
    MsgBox "PDF文件复制操作完成！", vbInformation
End Sub

关键细节说明 #

• 文件系统对象（FileSystemObject）：专门用于处理本地文件/文件夹的创建、复制、检查等操作，比原生VBA命令更稳定可靠
• 超链接地址处理：本地超链接常带有file:///前缀，必须替换为空；同时要把URL格式的斜杠/转换成Windows系统的反斜杠\，否则路径会失效
• 预检查文件夹：提前创建目标文件夹，避免因路径不存在导致的报错
• 覆盖控制：OverWriteFiles:=True允许覆盖同名文件，若需要避免覆盖，可以改为False，并添加重名文件的处理逻辑（比如在文件名后加时间戳）

额外注意事项 #

1. 确保你的Excel文件另存为.xlsm格式（启用宏的工作簿），否则宏无法运行
2. 确认你对源PDF文件有读取权限，对目标文件夹有写入权限
3. 如果筛选后的单元格区域不是整个工作表的超链接，可以修改遍历范围为指定单元格区域的超链接（比如Range("A1:A50").Hyperlinks）

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