[文本处理] [求助]如何在一堆Excel文档中找出内容含有关键词的文件并移动到指定文件夹。

Kira_1984

A文件夹中有数百个excel文档，需要在这些文档中找出内容含有指定关键词（例如：abc）的文件，并将这些文件移动到指定文件夹B中。
求大神帮忙写一段批处理代码

Batcher

回复 4# Kira_1984


    执行3楼的代码有什么报错信息？

Batcher

回复 4# Kira_1984


    没有。findstr命令可以查找txt文件，但是不能查找Excel这种非纯文本文件。

Kira_1984

回复  Kira_1984
试一下 这个可以帮到不
terse 发表于 2019-11-1 14:07

试了下好像不行。Windows本身的搜索功能可以用来含关键字内容的文件，不知道有没有命令可以调用windows的查找功能把文件找出来。

terse

回复 2# Kira_1984
试一下 这个可以帮到不

$Destination = '\B\'
$SearchText = 'ABC'
if (![System.IO.Directory]::Exists($Destination)) {$null = New-Item $Destination  -type directory}
$Excel = New-Object -ComObject Excel.Application
$Excel.Visible
$Files = Get-ChildItem ".\A\*.xlsx" | Select -Expand FullName
$f = ForEach($File in $Files){
    $Workbook = $Excel.Workbooks.Open($File)
    If($Workbook.Sheets.Item(1).UsedRange.Find($SearchText)){
       $File
    }
    $workbook.close($false)
}
$f | Move-Item -Destination $Destination
$Excel.Quit()
复制代码

Kira_1984

求助一下，有没有大神在