BAT能不能查找多个Excel表格文件里的关键词？

wh123wh123

如何用BAT自动模糊查找多个Excel表格文件存在的指定的关键词？并输出该关键词所在哪个文件多少行里？

77七

试试ai吧，很强大。





BAT 自身没有读取 Excel 工作簿的命令。对于 .xlsx、.xlsm 等文件，不能直接用 findstr，因为 .xlsx 实际上是压缩后的 XML 文件。

在电脑已经安装 Microsoft Excel 的情况下，较可靠的方法是：

BAT 调用 PowerShell，再通过 Excel COM 接口搜索。

下面是一个完整的单文件 BAT，不会长期生成额外的 .ps1 文件。

可以把多个关键词用英文竖线 | 分隔，例如：

合同|**|付款

下面这个版本会逐个搜索关键词，只要单元格中包含其中任意一个关键词就输出，结果中还会增加“匹配关键词”一列。

代码保持为utf-8的bat文件。

1. @echo off
   
2. chcp 65001 >nul
   
3. setlocal
   
4. 
   
5. rem 搜索目录：BAT 所在目录
   
6. set "SEARCH_DIR=%~dp0"
   
7. 
   
8. set /p "SEARCH_KEYWORDS=请输入关键词，多个关键词用英文竖线 | 分隔："
   
9. 
   
10. if not defined SEARCH_KEYWORDS (
    
11.     echo 没有输入关键词。
    
12.     pause
    
13.     exit /b 1
    
14. )
    
15. 
    
16. set "BAT_SELF=%~f0"
    
17. 
    
18. powershell.exe -NoProfile -ExecutionPolicy Bypass -Command ^
    
19. "$text=[IO.File]::ReadAllText($env:BAT_SELF);" ^
    
20. "$mark=':'+'__POWERSHELL__';" ^
    
21. "$pos=$text.IndexOf($mark);" ^
    
22. "$code=$text.Substring($pos+$mark.Length);" ^
    
23. "& ([ScriptBlock]::Create($code))"
    
24. 
    
25. echo.
    
26. pause
    
27. exit /b
    
28. 
    
29. 
    
30. :__POWERSHELL__
    
31. 
    
32. $ErrorActionPreference = 'Stop'
    
33. 
    
34. $folder = $env:SEARCH_DIR
    
35. $output = Join-Path $folder 'Excel搜索结果.csv'
    
36. 
    
37. $keywords = $env:SEARCH_KEYWORDS -split '\|' |
    
38.     ForEach-Object { $_.Trim() } |
    
39.     Where-Object { $_ -ne '' } |
    
40.     Select-Object -Unique
    
41. 
    
42. if (-not $keywords) {
    
43.     Write-Host '没有有效关键词。'
    
44.     return
    
45. }
    
46. 
    
47. $results = [System.Collections.Generic.List[object]]::new()
    
48. $excel = $null
    
49. 
    
50. try {
    
51.     $excel = New-Object -ComObject Excel.Application
    
52.     $excel.Visible = $false
    
53.     $excel.DisplayAlerts = $false
    
54. 
    
55.     $files = Get-ChildItem -LiteralPath $folder -Recurse -File |
    
56.         Where-Object {
    
57.             $_.Extension.ToLower() -in '.xls', '.xlsx', '.xlsm', '.xlsb' -and
    
58.             $_.Name -notlike '~$*'
    
59.         }
    
60. 
    
61.     if (-not $files) {
    
62.         Write-Host '没有找到 Excel 文件。'
    
63.         return
    
64.     }
    
65. 
    
66.     foreach ($file in $files) {
    
67.         $workbook = $null
    
68. 
    
69.         Write-Host "正在搜索：$($file.FullName)"
    
70. 
    
71.         try {
    
72.             $workbook = $excel.Workbooks.Open(
    
73.                 $file.FullName,
    
74.                 0,
    
75.                 $true
    
76.             )
    
77. 
    
78.             foreach ($sheet in @($workbook.Worksheets)) {
    
79.                 $range = $null
    
80. 
    
81.                 try {
    
82.                     $range = $sheet.UsedRange
    
83. 
    
84.                     foreach ($keyword in $keywords) {
    
85.                         $cell = $null
    
86. 
    
87.                         try {
    
88.                             # -4163：按单元格显示值搜索
    
89.                             # 2：部分匹配，即包含关键词
    
90.                             # 1：按行搜索
    
91.                             $cell = $range.Find(
    
92.                                 $keyword,
    
93.                                 [Type]::Missing,
    
94.                                 -4163,
    
95.                                 2,
    
96.                                 1,
    
97.                                 1,
    
98.                                 $false,
    
99.                                 $false,
    
100.                                 $false
     
101.                             )
     
102. 
     
103.                             if ($null -ne $cell) {
     
104.                                 $seen = [System.Collections.Generic.HashSet[string]]::new()
     
105. 
     
106.                                 while ($null -ne $cell) {
     
107.                                     $address = $cell.Address()
     
108. 
     
109.                                     if (-not $seen.Add($address)) {
     
110.                                         break
     
111.                                     }
     
112. 
     
113.                                     $results.Add([PSCustomObject]@{
     
114.                                         匹配关键词 = $keyword
     
115.                                         文件       = $file.FullName
     
116.                                         工作表     = $sheet.Name
     
117.                                         行号       = $cell.Row
     
118.                                         列号       = $cell.Column
     
119.                                         单元格     = $cell.Address($false, $false)
     
120.                                         内容       = [string]$cell.Value2
     
121.                                     })
     
122. 
     
123.                                     $nextCell = $range.FindNext($cell)
     
124. 
     
125.                                     if ($null -ne $cell) {
     
126.                                         [void][Runtime.InteropServices.Marshal]::ReleaseComObject($cell)
     
127.                                     }
     
128. 
     
129.                                     $cell = $nextCell
     
130.                                 }
     
131.                             }
     
132.                         }
     
133.                         finally {
     
134.                             if ($null -ne $cell) {
     
135.                                 [void][Runtime.InteropServices.Marshal]::ReleaseComObject($cell)
     
136.                             }
     
137.                         }
     
138.                     }
     
139.                 }
     
140.                 finally {
     
141.                     if ($null -ne $range) {
     
142.                         [void][Runtime.InteropServices.Marshal]::ReleaseComObject($range)
     
143.                     }
     
144. 
     
145.                     if ($null -ne $sheet) {
     
146.                         [void][Runtime.InteropServices.Marshal]::ReleaseComObject($sheet)
     
147.                     }
     
148.                 }
     
149.             }
     
150.         }
     
151.         catch {
     
152.             Write-Warning "无法搜索文件：$($file.FullName)"
     
153.             Write-Warning $_.Exception.Message
     
154.         }
     
155.         finally {
     
156.             if ($null -ne $workbook) {
     
157.                 $workbook.Close($false)
     
158.                 [void][Runtime.InteropServices.Marshal]::ReleaseComObject($workbook)
     
159.             }
     
160.         }
     
161.     }
     
162. 
     
163.     if ($results.Count -gt 0) {
     
164.         $results |
     
165.             Sort-Object 文件, 工作表, 行号, 列号, 匹配关键词 |
     
166.             Export-Csv -LiteralPath $output `
     
167.                        -NoTypeInformation `
     
168.                        -Encoding UTF8
     
169. 
     
170.         Write-Host ''
     
171.         Write-Host "搜索完成，共找到 $($results.Count) 条匹配结果。"
     
172.         Write-Host "结果文件：$output"
     
173.     }
     
174.     else {
     
175.         if (Test-Path -LiteralPath $output) {
     
176.             Remove-Item -LiteralPath $output -Force
     
177.         }
     
178. 
     
179.         Write-Host ''
     
180.         Write-Host '没有找到匹配内容。'
     
181.     }
     
182. }
     
183. finally {
     
184.     if ($null -ne $excel) {
     
185.         $excel.Quit()
     
186.         [void][Runtime.InteropServices.Marshal]::ReleaseComObject($excel)
     
187.     }
     
188. 
     
189.     [GC]::Collect()
     
190.     [GC]::WaitForPendingFinalizers()
     
191. }

复制代码

aloha20200628

基于以前用过的 bat+jscript 模板修改而成，运行结果会将当前目录中 *.xls 文件（文件类型可在代码第三行中自行增减，预设为 *.xls）包含的指定关键词所在位置（行号）提取输出到 list.txt
指定 '关键词' 在代码第二行中可自定义
test.bat

1. 2>1/* ::
   
2. @echo off &setlocal &set "kw=关键词"
   
3. (for %%F in (*.xls) do cscript /nologo /e:jscript "%~f0" "%%~fF" "%kw%")>#.$
   
4. sort #.$ /out "list.txt" &type "list.txt" &del /q #.$ &pause&exit/b */
   
5. v=WSH.arguments, xls=WSH.createobject('excel.application');
   
6. xls.visible=false, xls.displayalerts=false;
   
7. wb=xls.workbooks.open(v(0)), ws=wb.sheets(1), ur=ws.usedRange;
   
8. cell=ur.find(v(1)), row1=cell.row;
   
9. while (1) {
   
10.    rs=('  '+cell.row).substr(-3);
    
11.    WSH.echo(rs+','+v(1)+','+v(0)), cell=ur.findnext(cell);
    
12.    if (!cell || cell.row == row1) break; }
    
13. wb.close(), xls.quit(), WSH.quit();

复制代码