QTP设计模式-单例设计模式

'单例设计模式举例:

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("......")