以文本方式查看主题

-  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=122891)
--  作者：susu312
--  发布时间：2018/8/3 16:39:00
--  导入excel数据带验证的例子
老师，我记得我有天在论坛里看到有导入excel数据带验证的例子，可以给我个链接参考下不？
--  作者：狐狸爸爸
--  发布时间：2018/8/3 16:46:00
--  
参考：
http://www.foxtable.com/webhelp/scr/2334.htm
--  作者：有点甜
--  发布时间：2018/8/3 16:47:00
--  

带密码，要这样打开

 

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

 

清除密码，这样写

 

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