Excel VBA Application.Calculate 不起作用，但 Ctrl+Alt+F9 起作用

Question

我有一个 Excel 2013 的异常问题。我有一个 VBA 脚本来从 SQL 中提取数据并生成 HTML 文件，然后将这些 HTML 文件导入选项卡，然后重新计算依赖于先前生成的数据的公式调用。

基本结构如下:

Sub RefreshData()

Task1 ' run 1st query and generate HTML file
Task2 ' run 2nd query and generate HTML file
.
.
.
Taskn ' run nth query and generate HTML file
RefreshDataInTabs ' refresh all tabs with generated HTML files
Calculate_AllOpenWorkbooks ' calculate all formulas that depend on data obtained in Tasks above

End Sub

这里是调用计算...

Sub Calculate_AllOpenWorkBooks()

Application.Calculate

End Sub.

所以在调用 Calculate_AllOpenWorkBooks 之前一切都按预期工作。带有公式的单元格不会更新。在 Excel 选项的计算选项窗口中选择“自动”工作簿计算。手动数据 -> 全部刷新不起作用 但是 Ctrl+Alt+F9 可以!

Answer 1

经过多次尝试解决我最终使用的问题

SendKeys "{F9}"

有 10 ms 延迟，但它有效，您可以在代码中使用它。

如果需要，您甚至可以为 Ctrl+Alt+F9 执行 SendKeys "^%{F9}"。