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

Opublikowany przez

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
    Odpowiedz ↓

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *

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