类型不匹配错误设置 Excel 应用程序计算

Question

我有一个宏，它使用 VBA 从 Visio 获取或启动 Excel，并创建一个工作簿以配合活动的 Visio 绘图。

当宏关闭 Excel 自动计算时，我收到类型不匹配错误，但并不总是给出该错误。

为什么代码有时有效，而其他时候无效？

Dim XLCalcMode As Long
XLCalcMode = XLApp.Calculation
XLApp.Calculation = xlCalculationManual

Answer 1

Excel 应用程序必须至少打开一个工作簿，然后才能在 Application 对象上设置 Calculation 属性。

打开工作簿后，将 .Calculation 设置移至。