VBA跨工作簿设置图表数据源生成空白图表的问题求解

问题背景 #

• 开发Excel VBA图表功能时，已完成目标工作簿的打开、调用逻辑，同一段代码在无用户窗体的测试工作簿中可正常运行，在用户窗体触发场景下执行异常
• 代码运行时目标工作簿Footballers2020已打开且处于激活状态，执行到SetSourceData语句时无法拉取目标范围数据，最终生成空白图表

异常代码 #

Dim wsManchester as Worksheet
Set wsManchester = Workbooks("Footballers2020").Worksheets("ManchesterUnited")
    
With FootballChart
        .HasTitle = True
        .ChartTitle.Text = "Players from Manchester United"
        .HasLegend = True
        .ChartType = xlAreaStacked
        FootballChart.SetSourceData Source:=wsManchester.Range("N1:Z34") ' 此处执行后无数据加载
End With

故障根因 #

用户窗体触发VBA代码时，Excel的默认对象解析上下文会优先指向窗体关联的宿主工作簿，跨工作簿传递Range对象给SetSourceData方法时，如果没有做全限定绑定，方法会默认把范围解析到当前代码所在工作簿，找不到对应地址就会返回空数据源。无用户窗体场景下代码从标准模块/工作表模块触发，上下文和手动操作的活动对象一致，所以不会触发这个问题。
另外在With FootballChart块内部重复写FootballChart.SetSourceData属于不规范写法，虽然不会直接报错，但在上下文混乱的场景下可能加重对象引用偏移的问题。

修复方案 #

• 全限定数据源引用，优先传带完整外部标识的范围地址，不要直接依赖Range对象的隐式绑定：

Dim wsManchester As Worksheet
Dim sourceAddress As String
Set wsManchester = Workbooks("Footballers2020").Worksheets("ManchesterUnited")
' 拼接跨工作簿的完整数据源地址，避免上下文解析错误
sourceAddress = "[" & wsManchester.Parent.Name & "]" & wsManchester.Name & "!" & _
                wsManchester.Range("N1:Z34").Address(ReferenceStyle:=xlA1)

With FootballChart
        .HasTitle = True
        .ChartTitle.Text = "Players from Manchester United"
        .HasLegend = True
        .ChartType = xlAreaStacked
        ' With块内直接用.调用方法，不要重复写对象名
        .SetSourceData Source:=sourceAddress
End With

• 如果上述方案仍有兼容问题，可在绑定数据源前临时激活数据源所在工作表，绑定完成后恢复原界面状态，绕开上下文解析bug：

Dim wsManchester As Worksheet
Dim prevScreenState As Boolean
' 暂存屏幕更新状态，避免切换工作表时闪屏
prevScreenState = Application.ScreenUpdating
Application.ScreenUpdating = False

Set wsManchester = Workbooks("Footballers2020").Worksheets("ManchesterUnited")
wsManchester.Activate ' 显式激活数据源所在工作表

With FootballChart
        .HasTitle = True
        .ChartTitle.Text = "Players from Manchester United"
        .HasLegend = True
        .ChartType = xlAreaStacked
        .SetSourceData Source:=wsManchester.Range("N1:Z34")
End With

' 恢复原有屏幕更新设置
Application.ScreenUpdating = prevScreenState

• 检查FootballChart对象的绑定逻辑，不要用全局Variant类型变量存图表对象，显式指定图表的完整父级路径，比如图表在当前工作簿的图表工作表上，就提前写：

Dim FootballChart As Chart
Set FootballChart = ThisWorkbook.Charts("ManUtdPlayerChart")

避免窗体场景下对象引用指向未正确初始化的临时图表对象，导致数据源绑定失效。

编写用户窗体相关的VBA逻辑时，所有工作簿、工作表、范围、图表对象不要依赖默认的活动对象上下文，全部显式写全父级引用，能避免80%以上的跨场景运行异常。

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