vba - 工作表.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

我认为您必须在“工具”>“引用”中检查 Microsoft Visual Basic for Applications Extensibility 5.3。