[已解决]批处理如何读取EXCEL内容给指定目录下的pdf文件名加上？

liaoguinan

如图读取EXCEL内容，给PDF文件加上对应的名称

idwma

1. #@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
   
2. $fn='aaaaaa.xlsx'
   
3. $fd='d:\测试测试\*.pdf'
   
4. $a=new-object -com excel.application
   
5. $b=$a.workbooks.open("$(dir $fn)")
   
6. $c=$b.sheets.item(1)
   
7. $d=$c.usedrange.cells.value()
   
8. $a.quit()
   
9. $i=$d.length
   
10. $e=@{}
    
11. 1..$i|%{$e[($d[$_,1] -split '-| ')[1]]=$d[$_,1]}
    
12. dir $fd|%{
    
13. $f=$e[[string][int]$_.basename]
    
14. if($f){ren $_ ($f+$_.Extension)}
    
15. }

复制代码

aloha20200628

回复 1# liaoguinan

先调用excel外部接口将*.xls*电子表格文件转为*.csv文本文件，然后就是批处自己的功夫了...免去了用vba在电子表格里反复折腾...
以下代码存为 test.bat 其中第2-3行中的目标文件和路径均由楼主自定义...

1. 
   
2. @set @x=1 /* &@echo off &setlocal
   
3. set "xF=d:\测试\测试.xls"
   
4. set "pD=d:\测试"
   
5. cscript /e:jscript "%~f0" "%xF%"
   
6. for /f "usebackq delims=" %%F in ("%xF%.csv") do for /f "tokens=2 delims=- " %%a in ("%%F") do (
   
7.     setlocal enabledelayedexpansion &set "a=00%%a" &set "a=!a:~-3!"
   
8.     if exist "%pD%\!a!.pdf" ren "%pD%\!a!.pdf" "%%F.pdf"
   
9.     endlocal
   
10. )
    
11. del/q "%xF%.csv"&endlocal&pause&exit/b */
    
12. v=WSH.arguments, xls=WSH.createobject('excel.application');
    
13. xls.visible=false, xls.displayalerts=false, wb=xls.workbooks.open(v(0));
    
14. wb.saveas(v(0)+'.csv',6), wb.close(), xls.quit(), WSH.quit();
    

复制代码

liaoguinan

回复 2# idwma


    完美