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

返回列表