写入包含公式的 Excel 文件非常慢

Question

我们有一个自动流程，可以打开模板 Excel 文件，写入数据行，然后将文件返回给用户。这个过程通常很快，但是我最近被要求在其中一个模板中添加一个包含一些 Excel 公式的摘要页面，现在这个过程需要很长时间。

几分钟后它成功运行了大约 5 条记录，但是本周的记录集几乎是 400 行，而我让它运行的最长大约是半小时后取消它。如果没有公式，只需几秒钟即可运行。

将行写入包含公式的 Excel 文件是否存在任何已知问题？或者有没有办法告诉 Excel 在用户打开文件之前不要计算公式？

汇总表上的公式如下：

' Returns count of cells in column where data = Y
=COUNTIF(Sheet1!J15:Sheet1!J10000, "Y") 
=COUNTIF(Sheet1!F15:Sheet1!F10000, "Y")

' Return sum of column where data is a number greater than 0
' Column contains formula calculating the difference in months between two dates
=SUMIF(Sheet1!I15:Sheet1!I10000,">0",Sheet1!I15:Sheet1!I10000)  

' Returns a count of distinct values in a column
=SUMPRODUCT((Sheet1!D15:Sheet1!D10000<>"")/COUNTIF(Sheet1!D15:Sheet1!D10000,Sheet1!D15:Sheet1!D10000&""))

写入 excel 的代码如下所示：

Dim xls as New Excel.Application()
Dim xlsBooks as Excel.Workbooks, xlsBook as Excel.Workbook
Dim xlsSheets as Excel.Sheets, xlsSheet as Excel.Worksheet
Dim xlsCells as Excel.Range

xls.Visible = False
xls.DisplayAlerts = False

xlsBooks = xls.Workbooks

xlsBooks.Open(templateFile)
xlsBook = xlsBooks.Item(1)  

' Loop through excel Sheets. Some templates have multiple sheets.
For Each drSheet as DataRow in dtSheets.Rows
    xlsSheets = xlsBook.Worksheets
    xlsSheet = CType(xlsSheets.Item(drSheet("SheetName")), Excel.Worksheet)
    xlsCells = xlsSheet.Cells

    ' Loop though Column list from Database. Each Template requires different columns
    For Each drDataCols as DataRow in dtDataCols.Rows

        ' Loop though Rows to get data
        For Each drData as DataRow in dtData.Rows
            xlsCells(drSheet("StartRow") + dtData.Rows.IndexOf(drData), drDataCols("DataColumn")) = drData("Col" + drDataCols("DataColumn").toString).toString
        Next
    Next
Next

xlsSheet.SaveAs(newFile)
xlsBook.Close
xls.Quit()

Answer 1

每次写入单元格时，Excel 都会重新计算打开的工作簿并刷新屏幕。这两件事都很慢，所以需要设置 Application.Screenupdating=false 和 Application.Calculation=xlCalculationManual

此外，每次写入单元格都会产生很高的开销，因此将数据累积到数组中，然后通过对 Excel 对象模型的一次调用将数组写入范围要快得多。

Answer 2

使用auto 模式计算，每次数据输入/更改后都会重新计算。我有同样的问题，通过设置Manual计算模式解决。 （参考 MSDN link。）

xls.Calculation = Excel.XlCalculation.xlCalculationManual

此外，此属性只能在打开工作簿后设置，否则会引发运行时错误。

Answer 3

多年来拯救我的一种方法是添加

Application.ScreenUpdating = False

就在我执行一个可能冗长的方法之前，然后

Application.ScreenUpdating = True

直接在代码之后，或者至少在代码的某个稍后点。这会强制 Excel 在完成之前不会在可见屏幕上重绘任何内容。这个问题是我经常发现冗长运行操作的原因。