VBA에서 Excel 시트를 사용하기 전에 시트 이름을 확인하십시오.

Question

열 및 기타 사항을 확인하기 전에 첫 번째 시트의 이름을 확인하려고하는데 작동하지 않습니다. 여기에 내가 지금까지 시도한 것이있다. 어떤 도움을 주셔서 감사합니다.

SFile = Worksheets("Macro").Range("F17").Value 
Set oWB = Application.Workbooks.Open(SFile)  

Dim sh As Worksheet, flg As Boolean 
Set sh = oWB.Worksheets("SheetName") 

    If sh.Name Like "SheetName" Then flg = True: 

If flg = True Then 
     MsgBox "Sheet Name Exist" 
    Else 
     MsgBox "Sheet name does not exist" 
     oWB.Close False 
     Exit Sub 
End If 

Answer 1

좋아, 이걸로 작업 해.

For i = 1 To Worksheets.Count 
    If Worksheets(i).Name = "SheetName" Then 
     exists = True 
    End If 
Next i 
If Not exists Then 
    MsgBox "Please select the correct File" 
    bZX.Close False 
    Exit Sub 
End If