본문으로 바로가기

해당 시트명이 없으면 sub 종료하는 로직

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub main()
    If sheetExists("raw_data"= False Then
        MsgBox ("raw_data 시트가 없습니다.")
        Exit Sub
    End If
 
End Sub
 
Function sheetExists(shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet
 
     If wb Is Nothing Then Set wb = ThisWorkbook
     On Error Resume Next
     Set sht = wb.Sheets(shtName)
     On Error GoTo 0
     sheetExists = Not sht Is Nothing
 End Function
cs


raw_data라는 시트가 없으면 종료한다.




댓글을 달아 주세요