我正在重构 Excel 2003 工作簿中的多个模块，并且在每个模块的每个过程中声明相同的工作表集；我只想在全球范围内声明一次。我可以将工作表名称设置为文字，例如：
Public Const xlwkGSModel = "gs_model" As String
然后在程序中使用：
...ActiveWorkbook.Worksheets(xlwkGSModel).Cells(1,1)
但是有没有办法声明工作表对象，以便过程中的代码可以是：
...xlwkGSModel.Cells(1,1)
'1.插入模块
'2.在模块中声明工作表公共变量，如下所示
Public xlwkGSModel As Worksheet
'3.在应用程序加载事件中实例化此公共变量
Sub Workbook_Open()
Set xlwkGSModel = ActiveWorkbook.Worksheets("gs_model")
End Sub
'现在您可以使用 xlwkGSModel 变量引用 gs_model 工作表
'例如
dim x as string
x = xlwkGSModel.Cells(1,1)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
