求助：如何通过VBA循环批量打开多个PDF文件

你只需要在原代码基础上添加单元格遍历逻辑，同时增加基础错误处理（避免单个文件不存在导致程序中断），修改后的代码如下：

Sub OpenMultiplePDFs()
    Dim rng As Range
    Dim cell As Range
    Dim pth As String
    Dim fullPath As String
    
    Set rng = Application.InputBox("Select a range of cells:", Type:=8)
    pth = "A:\Pay run\$\"
    
    ' 遍历选中区域的每个单元格
    For Each cell In rng
        ' 跳过空单元格
        If cell.Value <> "" Then
            fullPath = pth & cell.Value & ".pdf"
            ' 检查文件是否存在，避免报错
            If Dir(fullPath) <> "" Then
                ThisWorkbook.FollowHyperlink fullPath
            Else
                MsgBox "文件不存在：" & fullPath, vbExclamation
            End If
        End If
    Next cell
End Sub

关键修改点说明： #

• 新增cell变量用于遍历选中区域的每个单元格
• 使用For Each...Next循环逐个处理单元格内容
• 添加Dir()函数检查文件是否存在，避免因文件缺失触发运行时错误
• 增加空单元格判断，跳过无内容的单元格

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