[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

回复 4# Kira_1984


    执行3楼的代码有什么报错信息?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 4# Kira_1984


    没有。findstr命令可以查找txt文件,但是不能查找Excel这种非纯文本文件。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

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

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

TOP

回复 2# Kira_1984
试一下 这个可以帮到不
  1. $Destination = '\B\'
  2. $SearchText = 'ABC'
  3. if (![System.IO.Directory]::Exists($Destination)) {$null = New-Item $Destination  -type directory}
  4. $Excel = New-Object -ComObject Excel.Application
  5. $Excel.Visible
  6. $Files = Get-ChildItem ".\A\*.xlsx" | Select -Expand FullName
  7. $f = ForEach($File in $Files){
  8.     $Workbook = $Excel.Workbooks.Open($File)
  9.     If($Workbook.Sheets.Item(1).UsedRange.Find($SearchText)){
  10.        $File
  11.     }
  12.     $workbook.close($false)
  13. }
  14. $f | Move-Item -Destination $Destination
  15. $Excel.Quit()
复制代码

TOP

求助一下,有没有大神在

TOP

返回列表