VBA技术问题：传递外部工作簿单元格地址变量时出现编译语法错误

问题分析 #

你原代码的核心问题是拼接单元格地址变量时的语法逻辑错误，同时对外部工作簿和工作表的引用写法不规范。你写的[Order Entry.xlsx].Dec2022.Range(" & cellRef.Address & ")属于错误的字符串拼接方式，VBA无法识别这种混合代码的写法，这就是编译报错的原因。

修正后的两种可行代码 #

写法一：保持硬编码的格式逻辑，正确拼接变量 #

这种写法和你成功运行的硬编码格式一致，只是把固定地址换成变量拼接：

Sub SyncCellColor()
    ' 设置当前工作簿活动单元格的颜色
    ActiveCell.Interior.Color = RGB(0, 176, 240)
    
    ' 提取活动单元格的地址字符串
    Dim cellAddr As String
    cellAddr = ActiveCell.Address
    
    ' 构造完整的外部单元格引用并设置颜色
    Range("'[Order Entry.xlsx]Dec2022'!" & cellAddr).Interior.Color = RGB(0, 176, 240)
End Sub

写法二：通过对象层级规范引用（更推荐） #

这种写法直接调用Workbooks和Worksheets对象，可读性更强，也不容易出语法错误：

Sub SyncCellColor()
    ' 存储当前活动单元格
    Dim sourceCell As Range
    Set sourceCell = ActiveCell
    
    ' 设置源单元格颜色
    sourceCell.Interior.Color = RGB(0, 176, 240)
    
    ' 引用目标工作簿、工作表，同步同地址单元格颜色
    Workbooks("Order Entry.xlsx").Worksheets("Dec2022").Range(sourceCell.Address).Interior.Color = RGB(0, 176, 240)
End Sub

重要注意事项 #

• 两种写法都要求Order Entry.xlsx处于已打开状态，否则会触发文件未找到的错误。
• 写法一中，外部工作簿和工作表的组合必须用单引号包裹（'[Order Entry.xlsx]Dec2022'!），这是VBA引用带空格或特殊字符名称的工作簿/工作表的强制要求。

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