运行时错误91 – 在Excel中使用饼图时，对象variables或块variables未设置

我的代码：

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那张纸，那么图表是如何激活的;）

因此我总是build议避免使用.Select 。 看到这个链接 。

尝试这个

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