如何检查Excel工作表上是否有表格

Question

我必须制作一个VBA宏来检查Excel工作表上是否已存在图表。所以，如果有任何图表存在，我必须删除它，如果没有，我必须放入一个新的图表。

我尝试过使用： 直接Worksheets("Sheet.Name").ChartObjects.Delete，但如果工作表上没有图表，则会出错。

我也尝试过使用ThisWorkbook.Charts.Count但是它总是显示我的工作簿中有0个图表，即使第一张表上有2个图表。

请帮忙。谢谢:)）

Answer 1

尝试循环浏览工作表中的所有Option Explicit Sub CheckCharts() Dim ChtObj As ChartObject For Each ChtObj In Worksheets("Sheet1").ChartObjects '<-- modify "Sheet1" with your sheet's name ChtObj.Delete Next ChtObj End Sub ，并删除其中的每一个（如果存在）。

<强>代码：

root@US16SIQC:~# passwd 
Changing password for root
New password: 
Bad password: too short
Retype password: 

passwd: can't create '/etc/passwd+': File exists
passwd: can't update password file /etc/passwd