外部ワークブックにワークシートを追加

Question

既存のExcelファイルにワークシート・コール "マスター・レコード"を追加します。以下のコードでは、ワークシートを作成することができましたが、ワークシートがすでに終了している場合は、別の名前（例：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