如何通过VBA公式引用外部工作簿？代码执行报错求助

错误原因拆解 #

• Range参数格式错误：原代码里Range(O2:O2000)的地址没加引号，VBA会把O2:O2000当成未定义变量，直接触发对象定义错误。
• 外部工作簿引用冗余：目标工作簿已经通过wb对象打开，公式里没必要重复写文件路径和文件名，否则会造成引用冲突。

修正后的代码 #

如果sheetName2是固定工作表名称：

wb.Sheets(sheetName1).Range("O2:O2000").Formula = "=VLOOKUP(C2, sheetName2!A:D,3,FALSE)"

如果sheetName2是变量：

Dim sheetName2 As String
sheetName2 = "你的目标工作表名称"
wb.Sheets(sheetName1).Range("O2:O2000").Formula = "=VLOOKUP(C2, " & wb.Sheets(sheetName2).Name & "!A:D,3,FALSE)"

修正要点说明 #

• Range地址加引号：把O2:O2000改成"O2:O2000"，符合VBA中Range对象对地址参数的字符串格式要求。
• 简化工作表引用：直接用已打开工作簿内的工作表名称，避免重复引用文件路径引发的错误。
• 动态变量拼接：通过变量拼接工作表名称，适配不同工作表名称的场景，同时能处理名称含特殊字符的情况。

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