含指定文本的PDF文件名返回VBA代码报错求助

错误排查 #

你的代码存在多处语法和逻辑问题，直接导致了"expected expression"错误及功能失效：

• 函数参数定义混乱：GetPdfName的File参数未实际使用，Flag在参数列表和函数内部重复声明（可选参数设为Variant但内部又定义Boolean类型）。
• FSO初始化顺序错误：先执行Set FolDir = FSO.GetFolder("FILE PATH")再创建FSO实例，会触发对象未初始化的运行时错误。
• 变量未初始化：Cnt未赋值就用于WS.Cells(Cnt, "A")，无法定位目标单元格。
• 函数与子过程逻辑重叠：把遍历工作表行的循环放在函数里，同时在调用子过程中错误地将循环代码作为参数传递，完全不符合VBA语法规则。
• 函数返回值未设置：GetPdfName没有给函数名赋值，无法返回查找结果。
• 调用函数语法错误：FSOGetFileName中调用GetPdfName的方式完全错误，不能将With块和For循环作为参数传入。

修正后的完整代码 #

以下是重构后的代码，实现根据工作表A列关键词查找指定文件夹中匹配的PDF文件名，并将结果写入B列：

' 核心函数：根据关键词查找文件夹中的PDF文件名
' 参数：
'   searchKey: 要查找的关键词（来自工作表A列）
'   folderPath: 要遍历的文件夹路径
'   isFound: 可选参数，返回是否找到匹配文件（True/False）
' 返回值：匹配的PDF文件名，未找到则返回"NO"
Private Function GetPdfName(ByVal searchKey As String, ByVal folderPath As String, Optional ByRef isFound As Boolean) As String
    Dim FSO As Object
    Dim folDir As Object
    Dim fileNm As Object
    
    ' 初始化文件系统对象
    Set FSO = CreateObject("scripting.filesystemobject")
    
    ' 检查目标文件夹是否存在
    If Not FSO.FolderExists(folderPath) Then
        GetPdfName = "文件夹不存在"
        isFound = False
        Exit Function
    End If
    
    Set folDir = FSO.GetFolder(folderPath)
    isFound = False
    
    ' 遍历文件夹中的PDF文件
    For Each fileNm In folDir.Files
        ' 不区分大小写匹配PDF后缀
        If LCase(fileNm.Name) Like "*.pdf" Then
            ' 不区分大小写查找关键词
            If InStr(1, fileNm.Name, searchKey, vbTextCompare) > 0 Then
                GetPdfName = fileNm.Name
                isFound = True
                Exit For
            End If
        End If
    Next fileNm
    
    ' 未找到匹配文件时返回"NO"
    If Not isFound Then
        GetPdfName = "NO"
    End If
    
    ' 释放对象资源
    Set fileNm = Nothing
    Set folDir = Nothing
    Set FSO = Nothing
End Function

' 调用函数的子过程：遍历工作表A列，批量查找并写入结果
Private Sub FSOGetFileName()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cnt As Long
    Dim folderPath As String
    Dim foundFlag As Boolean
    
    ' 配置目标工作表和文件夹路径
    Set ws = ThisWorkbook.Sheets("sheet4")
    folderPath = "C:\Your\Target\Folder\Path" ' 替换为实际文件夹路径
    
    ' 获取A列最后一行行号
    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    
    ' 遍历A列每一行的关键词
    For cnt = 1 To lastRow
        ' 跳过空单元格
        If Trim(ws.Cells(cnt, "A").Value) <> "" Then
            ws.Cells(cnt, "B").Value = GetPdfName(Trim(ws.Cells(cnt, "A").Value), folderPath, foundFlag)
        Else
            ws.Cells(cnt, "B").Value = "关键词为空"
        End If
    Next cnt
    
    Set ws = Nothing
End Sub

关键改进说明 #

• 职责拆分清晰：函数只负责单个关键词的查找，子过程负责遍历工作表，逻辑更易维护。
• 参数设计合理：明确传入必要的关键词和文件夹路径，可选参数返回查找状态。
• 增加边界处理：检查文件夹是否存在，避免无意义报错。
• 兼容性优化：使用不区分大小写的匹配规则，提升查找的灵活性。
• 资源管理规范：手动释放对象，避免内存泄漏。

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