我正在尝试通过CodeName属性引用新添加的工作表。问题是，除非从调试器运行，否则CodeName返回空字符串。
Set tableSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
MsgBox tableSheet.CodeName
除非我在MsgBox行上设置断点，否则即使这个简单的示例也无法正常工作。
这是什么问题？
最佳答案
我能够复制您的问题。一些谷歌搜索显示了这个答案：
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。
关于excel - Worksheet.CodeName为空，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/6095217/