如何创建一个新的Excel工作表和VBA项目创建一个给定的名称

Question

当你创建一个新的工作表，您可以设置与.name = "Name Here!"名称然而，VBA对象仍然有“工作表Sheet1”作为名称。

如何创建一个新的工作表，并设置VBA对象的名字吗？

请注意，我不问如何设置名称在工作簿上所显示的，也不是。名称属性。

Answer 1

这应该做的伎俩：

Public Sub Change_Codename()

    Dim ws As Object

    Set ws = ActiveWorkbook.Sheets("Sheet1")

    With ws

        .Parent.VBProject.VBComponents(.CodeName) _
        .Properties("_CodeName") = "Test"

    End With

End Sub

只要改变任何你想要的表的代号为“测试”。

这里是我的对象是如何看执行的代码之后：

此外，请确保您有信任对VBA项目模型通过转到文件 - >选项 - >信任中心 - >信任中心设置....在宏设置一定要勾选“对VBA项目的信托基金访问对象模型”，就像这样：