VBA -我如何在Excel工作表的名称结束时创建一个没有(2)的同名Excel工作表?

Question

我已经纠结这个问题2周了。我创建在VBA与名称"TestSheet周一"表。现在我再次创建一个名为"TestSheet monday"的表格。但是当我这样做时，一个名为"sheet(2)"的工作表被创建了。

我的问题是，我如何创建一个工作表，然后在工作表名称的末尾添加一个数字或其他命名。例如=>"TestSheet Monday"one_answers"TestSheet Monday second"，而不是"TestSheet Monday";

下面是我创建Excel表格的代码。

testSheetName = GetTestSheetName(targetAmount)
'Unprotect sheets
UnProtectSheet "Test"
UnProtectSheet testSheetName

'Create Test Sheet
Sheets("TestSheet").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Visible = xlSheetVisible
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = testSheetName
Sheets(Sheets.Count).Range("B7").value = WeekDay

谢谢你的帮助。

Answer 1

这是因为您正在一次又一次地创建具有相同名称的表单，这是不可能的。将Sheets(Sheets.Count).Name = testSheetName改为

Sheets(Sheets.Count).Name = testSheetName & "_" Sheets.Count

这里Sheets.Count将在页名后加上总页数。你可以在这里添加任何你想要的东西，比如testSheetName & " Second"。

Answer 2

你试过使用这个吗?Sheets.Add.Name = "TestSheet Monday">