????3.????????????????????????????????·???????е?
????Set ????? = New ????
???????????????QTP?н??д????????????????
????Set eom  = new ExcelClass
????eom.t1

????4.??????????????????????????????????????????????н???????????????????????????????????
Class ExcelClass
Sub t1()
MsgBox "t1"
End Sub
Sub t2()
MsgBox "t2"
End Sub
End Class
'????ExcelClass????ι???
Function NewExcelClass
Set NewExcelClass = new ExcelClass
End Function
????5. ??????QTP????????????????????????????????
Set eom  = NewExcelClass
eom.t1
?????????
?????????????????????????New ExcelClass????????????б?д???????????????????QTP??????н???new?????????????????????????????????????????????н???

???????
??????????????????????????????????Щ??????????????????????????????????????漰?????ι???????????????????????