vb.net - 更改工作表名称

Question

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

Answer 1

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

代码本身很简单： Sheet.Name = "Your 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

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