Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么用代码导入有密码保护excel表格到foxtable啊?


  共有8455人关注过本帖树形打印复制链接

主题:[求助]怎么用代码导入有密码保护excel表格到foxtable啊?

帅哥哟,离线,有人找我吗?
shacool
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
[求助]怎么用代码导入有密码保护excel表格到foxtable啊?  发帖心情 Post By:2012/1/19 11:20:00 [只看该作者]

怎么用代码导入有密码保护excel表格到foxtable啊?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/1/19 11:25:00 [只看该作者]

没有办法

 回到顶部
帅哥哟,离线,有人找我吗?
shacool
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
  发帖心情 Post By:2012/1/19 11:26:00 [只看该作者]

只能要取值的办法了。

 回到顶部
帅哥哟,离线,有人找我吗?
shacool
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:106 积分:1246 威望:0 精华:0 注册:2010/5/15 17:53:00
  发帖心情 Post By:2012/1/19 11:27:00 [只看该作者]

只能用取值的办法了。

 回到顶部
帅哥哟,离线,有人找我吗?
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:732 积分:5491 威望:0 精华:14 注册:2011/8/28 12:49:00
  发帖心情 Post By:2012/1/19 15:24:00 [只看该作者]

自己写代码导入

用VBA打开,excel打开文件时有个参数是密码,你在excel中打开VBA帮助看看

[此贴子已经被作者于2012-1-19 15:24:07编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
CFO
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:59 积分:425 威望:0 精华:0 注册:2012/1/17 10:32:00
  发帖心情 Post By:2012/1/20 16:55:00 [只看该作者]

用EXCEL解码器解码打开


 回到顶部
帅哥哟,离线,有人找我吗?
CFO
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:59 积分:425 威望:0 精华:0 注册:2012/1/17 10:32:00
  发帖心情 Post By:2012/1/20 17:01:00 [只看该作者]

试试Office Password Remover

 回到顶部
帅哥哟,离线,有人找我吗?
hunanwl
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:447 积分:3759 威望:0 精华:0 注册:2012/12/9 8:52:00
  发帖心情 Post By:2015/3/12 15:14:00 [只看该作者]

是啊 如果狐爸爸  能解决这个问题  狐表又提升了

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/12 15:23:00 [只看该作者]

以下是引用hunanwl在2015/3/12 15:14:00的发言:
是啊 如果狐爸爸  能解决这个问题  狐表又提升了

 

用vba打开,然后,处理。或者清除密码。

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls",password:="123")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
app.Visible = True

 

http://www.foxtable.com/help/topics/2121.htm

 


 回到顶部