我试图在excel中创建VBA宏,其中一个Excel工作表跟踪路径并在另一个工作表中创建一个新选项卡.它工作得很好,但是当我"意外地"使用相同名称创建另一个标签时,它会给出错误,因为"名称已经尝试了另一个".我不想再创建一个具有相同名称的选项卡.相反,它应该阻止我创建具有相同名称的选项卡
无论如何,如果那个名字已经存在,它会给我一个弹出窗口,说名字已经存在我只有一个选项可以点击.我单击"确定",并且创建的附加工作表不会被保存(或者如果已经创建,则会删除自身,或者将其保存为旁边的(2)同名,因为excel通常会对重复工作表执行此操作).我正在尝试这样的事情
If wb.ActiveSheet.Name = sName Then wb.ActiveSheet.Delete
这是我的代码
Private Sub Filling_List()
Dim sPath As String
Dim sFile As String
Dim wb As Workbook
Dim sName As String 'add sName declaration
Dim wb1 As Workbook
Dim ws1 As Worksheet
Set wb1 = ThisWorkbook
Set ws1 = ThisWorkbook.Worksheets("S0")
Application.ScreenUpdating = False
sPath = "C:\Users\arp\Desktop\Filling list macro\"
sFile = sPath & "ArF Filling List.xlsm"
Set wb = Workbooks.Open(sFile)
wb.Worksheets("ArF Templete").Copy After:=Worksheets(Worksheets.Count)
sName = ws1.Range("A1") & " " & ws1.Range("T2")
wb.ActiveSheet.Name = sName …