以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教如何打开带密码的excel?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105513)
--  作者：zhy400137
--  发布时间：2017/8/21 13:38:00
--  请教如何打开带密码的excel?
这段代码是打开EXCEL,但如果EXCEL本身带密码，我如果不手工输入密码，用狐表直接传密码参数打开？这个可以吗？谢谢
Dim rpt As String = ProjectPath & "Reports\\数据报表.xlsm"
Dim Proc As New Process \'
Proc.File = rpt
Proc.Start
--  作者：zhy400137
--  发布时间：2017/8/21 13:47:00
--  
如何这样可以，有些特别复杂的报表，我就可以用vba 通过ado来处理，变相增加了狐表的功能，
狐表窗口就起到个传密码的作用
--  作者：zhy400137
--  发布时间：2017/8/21 13:50:00
--  
大概知道了，我先试试，不会再问，谢谢！
--  作者：有点甜
--  发布时间：2017/8/21 14:23:00
--  

带密码，要这样打开

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\aaa.xls",password:="123456")
app.visible = True
--  作者：有点甜
--  发布时间：2017/8/21 14:29:00
--  

清除密码，这样写

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\aaa.xls",password:="123456")
App.DisplayAlerts = False
wb.saveas("d:\\temp.xls",password:="")
app.visible = True