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" Then
                srcDoc.Worksheets(sheetname).Cells(x,y).Interior.color=vbred
        ElseIf color = "green" Then
                srcDoc.Worksheets(sheetname).Cells(x,y).Interior.color=vbgreen
        Else
                MsgBox "输入的颜色参数不正确，只接收""red""和""green"""
        End If

Dim WshShell
        Set WshShell=CreateObject("Wscript.Shell")
        WshShell.SendKeys "^s"
        wait(1)
        
        srcData.Workbooks.Close
        Set srcDoc = nothing
        Window("text:=Microsoft Excel").Close
End Function