如何打开加密/带有打开密码的xls表格文件

7016427 · 发表于 2015-10-11 09:29:31

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

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

pcl_test · 发表于 2017-3-30 13:37:12

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

复制代码

		自动登录	找回密码
密码			注册

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

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