excel - vba:具有命名目的地的复制表

Question

我想用数据创建一个工作表的副本。
我设法用这段代码创建了一个副本，但想用定义的名称创建它

Dim outsheet As String
outsheet = "SAP Import"

Dim wsCopy As Worksheet
Set wsCopy = ThisWorkbook.Worksheets(outsheet)
wsCopy.Copy After:=ThisWorkbook.Worksheets(outsheet)

现在我想更改名称。然而，明显的解决方案没有在 VBA 中实现(参数未知)

Dim strSheetTemp As String
strSheetTemp = outsheet + "-temp"
wsCopy.Copy Destination:=ThisWorkbook.Worksheets(strSheetTemp)

如何创建命名副本？
或者我怎样才能得到副本的名称来重命名它？

Answer 1

我相信只有在复制后才能命名(或在这种情况下重命名)工作表。

Dim outsheet As String
outsheet = "SAP Import"
Sheets(outsheet).Copy After:=Sheets(outsheet)
Sheets(Sheets(outsheet).Index + 1).Name = outsheet & "-temp"