excel - 运行时错误 91 - 在 Excel 中使用饼图时未设置对象变量或块变量

Question

我的代码：

Sub PieSourceData()
    Sheets("ReportSummary").ChartObjects("Chart 5").Activate
    Sheets("DataSheet").Select
    ActiveChart.SetSourceData Source:=Range("A245:B249")
End Sub

它失败了：

ActiveChart.SetSourceData Source:=Range("A245:B249")

Answer 1

罪魁祸首是这条线

 Sheets("DataSheet").Select

如果您选择该工作表，那么图表如何处于活动状态；）

因此我总是建议避免使用.Select. 请参阅此链接。

尝试这个

Sub PieSourceData()
    Sheets("ReportSummary").ChartObjects("Chart 1").Activate
    ActiveChart.SetSourceData Source:=Sheets("DataSheet").Range("A245:B249")
End Sub