Worksheet.CodeName为空

Question

我正在尝试通过新添加的工作表的CodeName属性来引用它。问题是，除非从调试器运行，否则CodeName将返回空字符串。

Set tableSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
MsgBox tableSheet.CodeName

即使是这个简单的例子也不能工作，除非我在MsgBox行上设置一个断点。这有什么问题呢？

Answer 1

我可以复制你的问题。一些谷歌搜索显示了这个答案：

Sub test()
Dim tablesheet As Excel.Worksheet

Set tablesheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
MsgBox ThisWorkbook.VBProject.VBComponents(tablesheet.Name).Properties("Codename")
End Sub

我认为你必须在Tools>References中检查Microsoft Visual Basic for Applications Extensibility 5.3。

Answer 2

我可以确认这种行为。我以前从未使用过CodeName，有时我会使用Name来引用工作表。

Sub Test()
    Dim tableSheet As New Worksheet

    Set tableSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    MsgBox tableSheet.Name
End Sub

这给出了MsgBox中工作表的名称，它不仅是可读的，如果需要，您还可以更改工作表的名称。

Answer 3

我还需要为新的工作表读取代号。这个解决方案对我很有效：

1. 转到信任中心，在宏设置下选中“信任对VBA项目模型的访问”。
2. 现在只需将这三行放在您需要代码名的行前。没有这个它是不会工作的。这是VBA的怪癖。

On Error Resume Next
Debug.Print ActiveWorkbook.VBProject.VBComponents(Worksheets(ActiveSheet.Name).CodeName).Properties("Codename")
On Error GoTo 0

1. 现在以如下方式使用您的代号：

strActiveSheetCodeName = ActiveWorkbook.VBProject.VBComponents(Worksheets(ActiveSheet.Name).CodeName).Properties("Codename")