'单例设计模式举例:
Option Explicit
Public oExcel '声明全局变量
Class ExcelWrapper
Private oExcelObject
'初始化类
Private Sub Class_Initialize
Dim bAlreadyInit '判断对象是否存在的标志位
'检查对象是否已经被初始化
bAlreadyInit = False
If IsObject(oExcel) = True then
'对象初始化
If Not oExcel is Nothin then
'激活状态
bAlreadyInit = True
End If
End If
'如果标志位是False,则创建一个实例对象
If bAlreadyInit = False then
Set oExcel = CreateObject("Excel.Application")
End if
Set oExcelObject = oExcel
End Sub
'类销毁时退出Excel,并且释放Excel对象引用
Private Sub Class_Terminate
oExcelObject.Quit
Set oExcelObject = Nothing
End Sub
Private Sub Open(oFileName)
'写入打开文件的代码
End Sub
Public Function GetSheetData(oSheet)
'写读取单元格的代码
End Sub
'********等等,可以写更多方法**************
End Class
Set oExcelInstance = New ExcelWrapper
oExcelInstance.Open("......")