运行时错误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。请参阅link。

试试这个

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