Question

我希望将活动工作表的名称添加到新工作表中。

Sub Add_Rename()
' Add en Rename ActiveSheet

    Dim Maand As String
    Dim test As Worksheet
    Maand = ActiveSheet.Name

    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    Set test = ActiveSheet
    test.Name = "Digital Dossier " & Maand ' last part will not work.

End Sub

Answer 1

工作表名称的最大字符长度为31。确保原始工作表名称加上您要附加到原始名称的工作表名称不超过最大长度。

有关工作表命名等的更多信息，请参见本文。http://www.excelcodex.com/2012/06/worksheets-naming-conventions/

将活动工作表的名称添加到新工作表中

1 个答案: