以文本方式查看主题

-  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=39096)
--  作者：mxko
--  发布时间：2013/8/15 14:33:00
--  [求助]知道密码的情况下，怎么获取有密码的Excel文件中的值？

如题：


图片点击可在新窗口打开查看此主题相关图片如下：打开有错.png
图片点击可在新窗口打开查看
已经找到方法了，谢谢大家！

http://www.foxtable.com/bbs//dispbbs.asp?boardid=2&Id=39290

[此贴子已经被作者于2013-8-20 18:01:25编辑过]
--  作者：有点酸
--  发布时间：2013/8/15 14:40:00
--  
这个没办法的，用vba也许可以，不可以去excel论坛问问
--  作者：mxko
--  发布时间：2013/8/15 14:45:00
--  

有点酸，我是知道密码的，只是怎么把密码传过去？

[此贴子已经被作者于2013-8-15 14:46:45编辑过]
--  作者：mxko
--  发布时间：2013/8/15 15:23:00
--  

狐狸爸爸在吗？？

帮忙看看
--  作者：狐狸爸爸
--  发布时间：2013/8/15 15:36:00
--  
我也没办法
--  作者：有点甜
--  发布时间：2013/8/15 20:36:00
--  
把excel作为数据源，然后操作吧，做个小例子。


 下载信息  [文件大小：410.0 KB  下载次数：24]
图片点击可在新窗口打开查看点击浏览该文件:用excel作为数据源.zip
--  作者：有点甜
--  发布时间：2013/8/15 21:02:00
--  
错了，直接作为数据源不行，有密码。

需要使用vba解密123，然后再用狐表的方法操作excel。

Dim fdialog As new OpenFileDialog
fdialog.Filter = "Excel文件(*.xls)|*.xls"
If fdialog.ShowDialog() = DialogResult.OK Then
    Dim xlsapp As new Microsoft.Office.Interop.Excel.Application
    Dim workbook As Object = xlsapp.Workbooks.Open(fdialog.FileName, _
    Type.Missing, Type.Missing, Type.Missing, "123", Type.Missing, _
    Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _
    Type.Missing, Type.Missing, Type.Missing, Type.Missing)
    workbook.Password = ""
    workbook.SaveAs("d:\\temp.xls")
    xlsapp.Quit()
End If
--  作者：lpxjw_zyl
--  发布时间：2013/8/15 21:55:00
--  
222222222222
--  作者：mxko
--  发布时间：2013/8/20 18:01:00
--  

已经找到方法了，谢谢大家!

http://www.foxtable.com/bbs//dispbbs.asp?boardid=2&Id=39290