批处理之家 - Powered by Discuz! Board

标题: [文本处理] 如何打开加密/带有打开密码的xls表格文件 [打印本页]

作者: 7016427 时间: 2015-10-11 09:29 标题: 如何打开加密/带有打开密码的xls表格文件

本帖最后由 pcl_test 于 2017-3-30 13:37 编辑

我要打开d:\报表\电子核算.xls,文件打开密码是jW001,请问老师bat能否实现?

作者: pcl_test 时间: 2017-3-30 13:37

vbs，如xls的密码为123456，那么

Set fso = CreateObject("Scripting.FileSystemObject")
Set oExcel= CreateObject("Excel.Application")
Set oWBook = oExcel.Workbooks.Open(fso.GetFolder(".").Path & "\test.xls",,,,"123456")
'读取Sheet1表A1单元格的内容
Set oSheet = oWBook.Sheets("Sheet1")
Wscript.echo oSheet.Range("A1").Value
oWBook.Close
oExcel.Quit
复制代码

欢迎光临批处理之家 (http://www.bathome.net/)