如何用VBS遍历多个Excel文件查找指定值并导出对应整行到TXT文件

你当前的代码缺少动态数组初始化、整行内容拼接的逻辑，同时现有Find方法只会返回第一个匹配结果，以下是可直接运行的修改后代码：

sOutputPath = "C:\output.txt"
Set oExcel = CreateObject("Excel.Application")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oOutputFile = oFSO.CreateTextFile(sOutputPath, True)
' 先指定动态数组大小，后续新增搜索值/文件可调整对应数值
Dim aFiles(2) ' 共3个Excel文件
Dim aSearch(1) ' 共2个搜索值
' 列分隔符可自定义，这里用制表符区分列，也可以换成逗号、空格等
Const SEPARATOR = vbTab

fMain()
Sub fMain()
    oExcel.visible = False
    oExcel.DisplayAlerts = False

    ' 设置搜索值
    aSearch(0) = "Test"
    aSearch(1) = "1236xy"

    ' 设置Excel文件路径
    aFiles(0) = "C:\workbook1.xlsx"
    aFiles(1) = "C:\workbook2.xlsx"
    aFiles(2) = "C:\workbook3.xlsx"

    For Each file in aFiles
        Set oWorkbook = oExcel.Workbooks.Open(file, , true) ' 只读打开
        Set oWorksheet = oWorkbook.Worksheets(1) ' 固定取第一个工作表
        Set oRange = oWorksheet.UsedRange ' 仅在已使用区域搜索
        Dim firstFindAddress ' 记录第一个匹配项地址，避免循环搜索重复

        For Each entry in aSearch
            Set oTarget = oRange.Find(entry)
            If Not oTarget Is Nothing Then
                ' 每个匹配文件仅写一次路径
                oOutputFile.WriteLine("匹配文件：" & file)
                firstFindAddress = oTarget.Address
                ' 循环处理当前搜索值的所有匹配项
                Do
                    Dim rowContent, i
                    rowContent = ""
                    ' 拼接当前行所有已使用列的内容
                    For i = 1 To oRange.Columns.Count
                        If rowContent <> "" Then rowContent = rowContent & SEPARATOR
                        ' 空单元格返回空字符串，避免类型错误
                        rowContent = rowContent & oWorksheet.Cells(oTarget.Row, i).Value & ""
                    Next
                    ' 写入整行内容
                    oOutputFile.WriteLine("搜索值：" & entry & " | 匹配行内容：" & rowContent)
                    ' 查找下一个匹配项
                    Set oTarget = oRange.FindNext(oTarget)
                Loop While Not oTarget Is Nothing And oTarget.Address <> firstFindAddress
            End If
        Next
        On Error Resume Next
        oWorkbook.Saved = True
        oWorkbook.Close(False)
        On Error GoTo 0 ' 恢复默认错误捕获
    Next

    oOutputFile.Close
    oExcel.Quit
    ' 释放COM对象，避免Excel进程残留在后台占用资源
    Set oTarget = Nothing
    Set oRange = Nothing
    Set oWorksheet = Nothing
    Set oWorkbook = Nothing
    Set oExcel = Nothing
    Set oFSO = Nothing
    Set oOutputFile = Nothing
End Sub
wScript.Quit

关键修改说明 #

• 补充了动态数组的大小定义，避免直接赋值时报下标越界错误
• 新增了FindNext循环逻辑，可以提取同一个搜索值在文件中所有匹配的行，不会只返回第一个结果
• 整行内容拼接逻辑：遍历匹配行的所有已使用列，用指定分隔符拼接成完整字符串后写入TXT
• 新增了COM对象释放逻辑，避免Excel进程残留问题

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