Do While wkSheet.ChartObjects.Count > 0 '循环把一个表中的所有图表删除掉
wkSheet.ChartObjects(1).Delete
Loop
Do While wkSheet.ChartObjects.Count > 0 '循环把一个表中的所有图表删除掉
wkSheet.ChartObjects(1).Delete
Loop
Do While wkSheet.ChartObjects.Count > 0 '循环把一个表中的所有图表删除掉
wkSheet.ChartObjects(1).Delete
Loop