Excel VBA如何实现根据单元格值打开文件夹内多个Excel文件

原有代码的核心问题 #

• 过程参数定义不符合VBA语法规范：形参位置不能写MyCol+1这类运算表达式，必须声明为合法变量
• 重复代码冗余：三个逻辑完全一致的打开过程没必要拆分，可统一封装复用
• 关键变量未赋值：代码中Path、Name两个变量没有定义和赋值来源，运行会直接报错
• 校验逻辑不符合需求：仅判断了单元格是否为空，没有覆盖要求的非零校验规则
• 缺少容错处理：如果单元格存储的文件路径无效，直接调用打开命令会抛出运行时错误中断流程

修正后可直接使用的代码 #

' 按需修改：目标文件所在的基础文件夹路径，末尾必须带反斜杠\
Const BASE_FILE_FOLDER As String = "C:\你的文件存放目录\"

Public Sub OpenMatchedFiles()
    Dim targetRow As Long, baseColumn As Long
    Dim colOffset As Long
    Dim cellVal As Variant
    Dim fullFilePath As String
    
    ' 按需修改：检查的基准行号、基准列号，对应原逻辑第6行、第36列（AJ列）
    targetRow = 6
    baseColumn = 36
    
    ' 循环检查基准列向右偏移1/2/3的三个单元格，无需编写重复过程
    For colOffset = 1 To 3
        cellVal = Cells(targetRow, baseColumn + colOffset).Value
        ' 跳过公式错误的单元格
        If Not IsError(cellVal) Then
            ' 同时满足非空、非零两个条件才触发打开逻辑
            If Trim(CStr(cellVal)) <> "" And Val(CStr(cellVal)) <> 0 Then
                ' 拼接完整文件路径
                fullFilePath = BASE_FILE_FOLDER & CStr(cellVal)
                ' 校验文件存在再打开，避免报错
                If Dir(fullFilePath) <> "" Then
                    Workbooks.Open Filename:=fullFilePath
                Else
                    MsgBox "跳过不存在的文件：" & vbCrLf & fullFilePath, vbExclamation
                End If
            End If
        End If
    Next colOffset
End Sub

' 按钮直接绑定该宏即可
Sub openbutton1()
    Call OpenMatchedFiles
End Sub

使用注意事项 #

• 如果单元格中存储的是文件的完整绝对路径（如D:\经营数据\Q1报表.xlsx），可将BASE_FILE_FOLDER的值设为空字符串""，直接读取单元格值作为路径打开
• 若需要调整检查的单元格位置，仅需修改targetRow、baseColumn两个变量的赋值即可，不需要改动核心逻辑
• 宏运行时会自动跳过空值、0值、公式报错的单元格，文件不存在时会弹出提示，不会中断后续文件的打开流程

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