Access VBA插入Excel公式无法自动计算，求解决方案

问题详情 #

• 用VBA从数据库提取Excel公式，插入新建的Excel工作簿
• 公式能正常写入单元格，但不会自动计算；手动点击单元格按回车后可正常计算
• 试过以下方法均无效：
  • VBA命令：xlApp.Calculate、xlSheet.Calculate、xlApp.CalculateFull、xlApp.CalculateFullRebuild
  • Excel功能区的计算按钮
  • 设置单元格格式（如"0.0000"、General）
• 已确认：公式已转换为英文表达式（如=SUM(A3,B3:F12)替代德语=SUMME(A3;B3:F12)）、Excel计算模式为自动、插入和取值的是同一单元格
• 报错位置：rsRes!Wert = xlSheet.Range("F" & i).Value（导回Access时因单元格无计算值出错）

解决方案 #

1. 模拟手动回车（最直接有效）

通过VBA触发单元格的编辑状态再退出，模拟手动回车的效果：

Dim targetCell As Range
Set targetCell = xlSheet.Range("F" & i) ' 替换为你的目标单元格

targetCell.Activate
xlApp.SendKeys "{F2}" ' 进入编辑模式
xlApp.SendKeys "{ENTER}" ' 退出并触发计算

注意：如果Excel窗口不可见，SendKeys可能失效，临时调试可设xlApp.Visible = True，生产环境可结合其他方法。

2. 用正确的属性写入公式

确保用Formula（英文公式）或FormulaLocal（本地语言公式）属性写入，而非Value：

' 英文公式用Formula
xlSheet.Range("F" & i).Formula = "=SUM(A3,B3:F12)"
' 本地语言公式（如德语）用FormulaLocal
' xlSheet.Range("F" & i).FormulaLocal = "=SUMME(A3;B3:F12)"

如果之前用Value写入公式字符串，Excel会把它当成文本，自然不会计算。

3. 检查公式开头的等号

确认从数据库提取的公式首字符是=，缺少等号会被识别为文本，可在写入前补全：

Dim formulaStr As String
formulaStr = rstZutaten!XLFormula ' 从数据库获取公式字符串

If Left(formulaStr, 1) <> "=" Then
    formulaStr = "=" & formulaStr
End If

xlSheet.Range("F" & i).Formula = formulaStr

4. 重置单元格后重新写入公式

先清除单元格内容，再写入公式并强制计算：

With xlSheet.Range("F" & i)
    .ClearContents
    .Formula = formulaStr
    .Calculate
End With

xlApp.CalculateFull

内容的提问来源于stack exchange，提问作者PATA