专家坐堂-首行Ws.Range("I12").Value 运行慢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

问题：如果不打开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")