时间戳

首页 > 解决方案 > vba：具有命名目的地的复制表

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

问题描述

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

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)

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

标签： excelvba

解决方案

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

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

推荐阅读