excel - 如何在 VBA 项目中创建新的 Excel 工作表并创建给定名称

Question

创建新工作表时，可以使用 .name = "Name Here!" 设置名称但是，VBA 对象仍将具有“Sheet1”作为名称。

如何创建新工作表并设置 VBA 对象名称？

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

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 项目对象模型的访问”，如下所示: