共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：首行Ws.Range("I12").Value 运行慢
1楼
puma 发表于：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楼
有点蓝 发表于：2024/12/11 13:40:00请上传实例测试
3楼
puma 发表于：2024/12/11 15:42:00有的电脑慢，有的电脑快。
4楼
有点蓝 发表于：2024/12/11 15:51:00换个不同版本的office安装试试。
不要把项目文件或者发布的程序放到共享目录里使用，不要把模板放到共享目录里打开
共4 条记录, 每页显示 10 条, 页签:
[1]