VBA写入跨工作簿公式后无法计算且报应用程序定义错误求助

核心错误分析 #

你的代码存在两个关键问题：

• 跨工作簿引用的单引号位置错误：Excel要求外部文件的路径+工作簿+工作表部分必须用单引号完整包裹，否则无法识别合法的外部引用格式，这是触发应用程序定义错误的原因
• 之前尝试添加双引号的方式错误：VBA字符串中直接插入单个双引号会被当成字符串结束标记，引发编译错误，但这里根本不需要双引号，只需修正单引号的位置

修正后的代码 #

Range("$H$7").Formula = "='S:/Finance/Budget & Forecast/2023/2023 Budget/Chapters/030 - New England/[030 - New England.xlsm]Consolidated'!" & Budget

关键说明 #

• .Formula属性确实会让Excel自动计算公式，前提是公式语法完全合法
• 确保Budget变量是有效单元格地址格式（如"A1"、"$C$10"），且通过VLOOKUP获取的结果无多余字符
• 如果外部工作簿未打开，Excel会自动弹出文件查找提示，确认路径正确即可加载计算结果

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