Foxtable(狐表) → 用户栏目 → 专家坐堂 → 首行Ws.Range("I12").Value 运行慢


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

主题：首行Ws.Range("I12").Value 运行慢
帅哥哟，离线，有人找我吗？
puma
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：365 积分：3056 威望：0 精华：0 注册：2023/6/7 16:07:00 		首行Ws.Range("I12").Value 运行慢  发帖心情 Post By：2024/12/11 12:45:00 [只看该作者]

问题：如果不打开excel的模版（异常），  Ws.Range("I12").Value = IIF(r.IsNull("上限"), r("上限"), r("上限")) 这行代码会运行50秒


                                  下一行代码：Ws.Range("I13").Value = IIF(r.IsNull("下限"), r("下限"), r("下限"))  运行就正常了0.03秒



解决方法1.打开一个excel的模版，整个函数4-5秒，正常了。
求解：这是为什么？




Dim App As New MSExcel.Application
App.Visible = True
App.ScreenUpdating = False
tstart=Date.Now
Dim Wb As MSExcel.Workbook = App.Workbooks.Open(ProjectPath & "Attachments\模板.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("Sheet1")








图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/11 13:40:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
puma
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：365 积分：3056 威望：0 精华：0 注册：2023/6/7 16:07:00 		  发帖心情 Post By：2024/12/11 15:42:00 [只看该作者]

有的电脑慢，有的电脑快。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/11 15:51:00 [只看该作者]

换个不同版本的office安装试试。

不要把项目文件或者发布的程序放到共享目录里使用，不要把模板放到共享目录里打开
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03418 秒, 4 次数据查询