摘要：
Public Function QTP_Change_Color(pathway,sheetname,x,y,color) Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3 set srcData = CreateObject("Excel.Application") srcData.Visible = True set srcDoc = srcData.Workbooks.Open(pathway) srcDoc.Worksheets(sheetname).Activate If color = "red" The 阅读全文
摘要：
Call Test Class Tester Dim mvarTesterName,mvarAge,mvarGender Sub Class_Initialize '构造函数 MsgBox"接下来，大家欢迎新同事的到来！" End Sub Sub Class_Terminate'析构函数 If mvarGender Then MsgBox "很遗憾，" & mvarTesterName & "先生脱离了测试行业！" Else MsgBox "很遗憾，" & mvarTeste 阅读全文