외부 통합 문서에 워크 시트 추가

Question

기존 엑셀 파일에 워크 시트 호출 "마스터 레코드"를 추가하고 싶습니다. 아래 코드를 사용하면 워크 시트를 만들 수 있지만 워크 시트가 이미 끝나면 다른 이름 인 Sheet2, Sheet3으로 시트를 만듭니다.

다른 시트를 만들고 싶지 않습니다. 메시지를 반영하는 것보다 이미 존재합니다. 불필요한 시트를 만들지 않으려면 어떻게해야합니까?

Dim Wb As Workbook 
Dim ws As Worksheet 
Set Wb = Workbooks.Open(TextBox2.Text) 
Set ws = Wb.Sheets.Add 
    ws.Name = "Master Records" 

Wb.Save 
Wb.Close 

Answer 1

존재하는지 확인해야합니다.

Dim exists as Boolean 
Dim Wb As Workbook 
Dim ws As Worksheet 
Set Wb = Workbooks.Open(TextBox2.Text)  


exists = False 

For i = 1 To Worksheets.Count 
    If Worksheets(i).Name = "Master Records" Then 
     exists = True 
    End If 
    If exists = True Then 'Exit loop early if it finds that the sheet exists 
     Exit For 
    End If 
Next i 

If Not exists Then 
Set ws = Wb.Sheets.Add 
    ws.Name = "Master Records" 
Else 
    MsgBox("Sheet Exists") 
End If