[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
没有改成功是指文件扩展名没有修改?还是文件扩展名修改了但是数据模型不识别?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

xls转xlsx - 单个文件.bat
  1. # & cls & @cd /d "%~dp0" & powershell "Get-Content '%~0' | Out-String | Invoke-Expression " & exit /b
  2. $Excel = New-Object -ComObject Excel.Application
  3. $Excel.Visible = $false
  4. $Workbook = $Excel.Workbooks.Open("C:\Test\Excel\1.xls")
  5. $Workbook.CheckCompatibility = $false
  6. $Workbook.SaveAs("C:\Test\Excel\1.xlsx", 51)
  7. $Workbook.Close()
  8. $Excel.Quit()
复制代码
xls转xlsx - 多个文件.bat
  1. # & cls & @cd /d "%~dp0" & powershell "Get-Content '%~0' | Out-String | Invoke-Expression " & exit /b
  2. $OldFolder = "C:\Test\From"
  3. $NewFolder = "C:\Test\To"
  4. $Excel = New-Object -ComObject Excel.Application
  5. $Excel.Visible = $false
  6. Get-ChildItem -Path $OldFolder\*.xls -File | ForEach-Object {
  7.     $NewName = $NewFolder + "\" + $_.BaseName + ".xlsx"
  8.     "[From] " + $_.FullName
  9.     "[To] " + $NewName
  10.     $Workbook = $Excel.Workbooks.Open($_.FullName)
  11.     $Workbook.CheckCompatibility = $false
  12.     $Workbook.SaveAs($NewName, 51)
  13.     $Workbook.Close()
  14. }
  15. $Excel.Quit()
复制代码
xlsx转xls - 单个文件.bat
  1. # & cls & @cd /d "%~dp0" & powershell "Get-Content '%~0' | Out-String | Invoke-Expression " & exit /b
  2. $Excel = New-Object -ComObject Excel.Application
  3. $Excel.Visible = $false
  4. $Workbook = $Excel.Workbooks.Open("C:\Test\Excel\1.xlsx")
  5. $Workbook.CheckCompatibility = $false
  6. $Workbook.SaveAs("C:\Test\Excel\2.xls", 56)
  7. $Workbook.Close()
  8. $Excel.Quit()
复制代码
xlsx转xls - 多个文件.bat
  1. # & cls & @cd /d "%~dp0" & powershell "Get-Content '%~0' | Out-String | Invoke-Expression " & exit /b
  2. $OldFolder = "C:\Test\From"
  3. $NewFolder = "C:\Test\To"
  4. $Excel = New-Object -ComObject Excel.Application
  5. $Excel.Visible = $false
  6. Get-ChildItem -Path $OldFolder "*.xlsx" | ForEach-Object {
  7.     $NewName = $NewFolder + "\" + $_.BaseName + ".xls"
  8.     "[From] " + $_.FullName
  9.     "[To] " + $NewName
  10.     $Workbook = $Excel.Workbooks.Open($_.FullName)
  11.     $Workbook.CheckCompatibility = $false
  12.     $Workbook.SaveAs("$NewName", 56)
  13.     $Workbook.Close()
  14. }
  15. $Excel.Quit()
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 5# GNGW


第一行代码的作用是在bat里面调用powershell
这是bat和powershell混编的一种用法
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表