添加工作表在外部工作簿

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