Блог

Я пытаюсь отправить электронное письмо, созданное системой. который содержит excel. Но я хочу знать, является ли excel пустым или нет. как я могу это проверить? И как проверить, является ли указанный диапазон пустым или нет?

Приведенный ниже код зацикливает все рабочие листы и проверяет, пусты ли они:

 Sub Empty_Area()
    
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        
        With ws
        
            If WorksheetFunction.CountA(.UsedRange) = 0 And .Shapes.Count = 0 Then
                MsgBox "Empty"
            Else
                MsgBox "Not empty"
            End If
            
        End With
        
    Next ws
    
End Sub
 

Приведенный ниже код проверяет, пуст ли диапазон листов 1 A1:A10:

 Sub Empty_Area()
    
    Dim rng As Range
    
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10")
    
                            
    If WorksheetFunction.CountA(rng) = 0 Then
        MsgBox "Empty"
    Else
        MsgBox "Not empty"
    End If
                            
End Sub