Excel自动化: Identifying and deleting blank work sheets

Question

如果工作表不包含数据/图表/图像/绘图/超链接对象或任何其他嵌入对象，我想删除该工作表。

我使用以下代码找到了如果单元格中没有数据则检测和删除空白表的解决方案:-

if ( $Worksheet_Function->CountA( $sheet->{Cells} ) == 0 ) { $sheet->删除；}

但如果存在图表或非文本对象，它也会删除工作表。

如果工作表完全为空，有什么方法可以识别并删除工作表吗？

Answer 1

如果只有格式，将删除该工作表，但这应该满足您的要求

Sub chksheet()
 Dim wks As Worksheet
 Application.DisplayAlerts = False

 For Each wks In ActiveWorkbook.Worksheets

 If WorksheetFunction.CountA(Cells) = 0 And wks.DrawingObjects.Count = 0 Then
  wks.Delete
  Else
   MsgBox ("has stuff") 'or do nothing here and skip this sheet
  End If
 Next wks

 Set wks = Nothing
  Application.DisplayAlerts = True
 End Sub