Foxtable(狐表)用户栏目专家坐堂 → [讨论] FOX 的 EXCEL代碼效率太低了?


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

主题:[讨论] FOX 的 EXCEL代碼效率太低了?

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
[讨论] FOX 的 EXCEL代碼效率太低了?  发帖心情 Post By:2014/7/4 12:25:00 [只看该作者]

系統: W7,i5-2400CPU,4G(RAM),32位

Dim st As Date = Date.Now
Dim ft As String = "D:\Met\Reports\PPS.xls"      
'文件6.43M,其中一表8000行,16列,其他三表數據很少       
Dim Book As New XLS.Book(ft)
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Output.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") '计算
'耗时: 2.5481457秒

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


加好友 发短信
等级:七尾狐 帖子:1731 积分:11255 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2014/7/4 12:32:00 [只看该作者]

Dim Book As New XLS.Book(ft)

 

这句话估计占用超过2.4秒。

 

你可以自己测试手动打开这个文件需要多久


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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2014/7/4 13:21:00 [只看该作者]

以下是引用jspta在2014-7-4 12:32:00的发言:

Dim Book As New XLS.Book(ft)

 

这句话估计占用超过2.4秒。

 

你可以自己测试手动打开这个文件需要多久


確實超出2秒!


因此文件本來有編輯權限密碼,用Dim Book As New XLS.Book(ft)後,發現原來的編輯權限密碼沒有了,但會彈出提示窗口


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


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

 回复3楼,可以用vba去操作打开,可以设置打开密码的等的。

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2014/7/4 15:04:00 [只看该作者]

以下是引用有点甜在2014-7-4 14:01:00的发言:
 回复3楼,可以用vba去操作打开,可以设置打开密码的等的。
因此文件的密碼經常改變,因此不想用VBA


 回到顶部