更改工作表的名称

Question

您能告诉我如何更改Excel工作表名称的名称： 例如：“Sheet1” - 使用VB代码的“MyNewSheet”。

Answer 1

您是否使用VB.NET或VBA（例如，您是否在Excel应用程序中开发宏？）

代码本身很简单： Sheet.Name =“你的名字” 太长的名字是个问题。 另外，我会在编写之前检查名称 - 如果名称已经在工作簿中，则会导致错误。

Private Sub SetName(name as string)

Dim ActSheet As Worksheet

Set ActSheet = ActiveSheet

Dim NameIsOk as Boolean

NameIsOk = true

dim i as Integer

For i = 1 To ActiveWorkbook.Worksheets.Count
    If ActiveWorkbook.Worksheets(i).Name = name then
       NameIsOk = false
    End If
Next

If NameIsOk Then
    ActSheet = name
End if
End Sub

此代码将工作表的名称设置为所需名称，但仅限于当前工作簿中未找到工作表名称