VBA赋值字符串到单元格时出现438错误的原因排查

你运行这段代码时触发438错误，核心不是语法过时，而是对象引用的逻辑问题：

Sub AccessObject()
Application.ActiveWorkbook.Sheets(1).Cells(1,2).Value = "A String"
End Sub

错误原因拆解 #

• 438错误的本质是“对象不支持该属性或方法”，但这里的问题出在ActiveWorkbook的状态：如果当前没有打开的工作簿，或者代码所在的工作簿未处于激活状态，Application.ActiveWorkbook会返回Nothing，后续调用.Sheets(1)自然会触发错误。
• 移除前缀后代码能正常执行，是因为此时VBA默认使用**代码所在的工作簿（ThisWorkbook）**作为父对象，直接调用Cells(1,2)等价于ThisWorkbook.ActiveSheet.Cells(1,2)，逻辑上是有效的。

修正方案 #

• 若要操作代码所在的工作簿，直接用ThisWorkbook替代Application.ActiveWorkbook，避免激活状态变化带来的问题：

Sub AccessObject()
ThisWorkbook.Sheets(1).Cells(1, 2).Value = "A String"
End Sub

• 若确实要操作当前激活的工作簿，先判断对象是否存在：

Sub AccessObject()
If Not Application.ActiveWorkbook Is Nothing Then
    Application.ActiveWorkbook.Sheets(1).Cells(1, 2).Value = "A String"
Else
    MsgBox "当前没有激活的工作簿"
End If
End Sub

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