????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?????????????????????????????????????????????薪???

???????
??????????????????????????????????些??????????????????????????????????????婕�?????喂???????????????????????