因经常接触加密Excel数据文件,密码又难记,所以有此办法
复制下面代码到记事本,另存为 【快捷打开.vbs】 文件
Set args = Wscript.Arguments FilePath = args(0) Const Pwd = "xxxxx" '事先知道的Excel文件密码,是打开密码,不是工作簿密码 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.WorkBooks.Open FilePath,0,True,,Pwd tittle = "JBH Only" objExcel.Caption = tittle set ws=createobject("wscript.shell") ws.appactivate tittle ws.sendkeys "{enter}" ws.quit set ws = nothing set args = nothing