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


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

主题:[讨论] 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秒

 回到顶部
帅哥哟,离线,有人找我吗?
don
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)後,發現原來的編輯權限密碼沒有了,但會彈出提示窗口


 回到顶部
帅哥哟,离线,有人找我吗?
don
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部