当你创建一个新的工作表,您可以设置与.name = "Name Here!"
名称然而,VBA对象仍然有“工作表Sheet1”作为名称。
如何创建一个新的工作表,并设置VBA对象的名字吗?
请注意,我不问如何设置名称在工作簿上所显示的,也不是。名称属性。
这应该做的伎俩:
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项目的信托基金访问对象模型”,就像这样: