Jak sprawdzić, czy akrusz o określonej nazwie istnieje?

Poniżej przedstawiam proste rozwiązanie jak sprawdzić, czy arkusz o określonej nazwie istnieje w skoroszycie.

Sub SheetExistChecking()
' Sprawdzanie czy istnieje akrusz

On Error Resume Next ' jeżeli wystąpi bład to kod jest kontunuowany
' Zaznaczanie insteresujacego nas arkusza
Sheets("NazwaArkusza").Select

' Bład 9 oznacza brak arkusza pod wybrana przez
' nas nazwą "Subscript out of range"
If Err.Number = 9 Then
    ' Info o błędzie
    Debug.Print Err.Number
    Debug.Print Err.Description
Else
    ' Brak błedu - 0 oznacza brak bledu
    Debug.Print Err.Number
    Debug.Print Err.Description
End If

On Error GoTo 0 ' powrót do normalnej obłsugi błędów
End Sub

2 myśli w temacie “Jak sprawdzić, czy akrusz o określonej nazwie istnieje?

  1. Jest też także inny sposób sprawdzenia, czy istnieją arkusze które są wymagane przez aplikację:

    Dim i As Long
    Dim NazwaArkusza, HumoSheet, LT22Sheet, E2RSheet, RaportSheet As String
    
    With ThisWorkbook
        For i = 1 To .Sheets.Count    
            NazwaArkusza = .Sheets(i).Name    
            Select Case NazwaArkusza    
        
                Case "Raport HumoVsWaga"
                RaportSheet = "ok"  
          
                Case "HUMO"
                HumoSheet = "ok"
                
                Case "LT22"
                LT22Sheet = "ok"
                
                Case "E2R"
                E2RSheet = "ok"
            
            End Select    
        Next
    
        If HumoSheet = "" Or LT22Sheet = "" Or E2RSheet = "" Or RaportSheet = "" Then
            MsgBox "Kod zostal zatrzymany!" & Chr(10) & _
                    "Skoroszyt musi posiadac arkusze pod nazwami:" & Chr(10) & _
                    "'Raport HumoVsWaga', 'HUMO', 'LT22', 'E2R'.", vbCritical, "APP INFO..."
            Exit Sub
        End If
    End With
    

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Wymagane pola są oznaczone *

Witryna wykorzystuje Akismet, aby ograniczyć spam. Dowiedz się więcej jak przetwarzane są dane komentarzy.