QTP读写excel中的值（二）

   Function writeExcel(filepath,sheetname,x,y,wrivalue)

   Set bjExcel = CreateObject ("Excel.Application")

       'Excel程序不在前台显示

    ObjExcel.Visible = False

       '设置变量SrcExcel等于Excel工作薄open

       'Activate定位活动的sheet

       '并给某一单元格赋值

   Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)

    SrcExcel.WorkSheets(sheetname).Activate

    SrcExcel.WorkSheets(sheetname).Cells(x,y).Value = wrivalue

          ObjExcel.DisplayAlerts = False

          ObjExcel.save      

  'Excel退出，释放资源

    ObjExcel.quit

    Set bjExcel = Nothing

    Set SrcExcel = Nothing

End Function

   '定义读excel过程，这儿的filepath,sheetname,x,y跟writeexcel中的相同。

  Function ReadExcel(filepath,sheetname,x,y)

  Dim ObjExcel,SrcExcel,ExcValue

   Set bjExcel = CreateObject ("Excel.Application")

       'Excel程序不在前台显示

    ObjExcel.Visible = False

       '设置变量SrcExcel等于Excel工作薄open

       'Activate定位活动的sheet

       '并给某一单元格赋值

    Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)

    SrcExcel.WorkSheets(sheetname).Activate

    ExcValue = SrcExcel.WorkSheets(sheetname).Cells(x,y).Value 

  '当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗？” 使用DisplayAlerts代码该列

          ObjExcel.DisplayAlerts = False

          ObjExcel.save

      '  print(ExcValue)

  'Excel退出，释放资源

    ObjExcel.quit

    Set bjExcel = Nothing

    Set SrcExcel = Nothing

End Function

  '输入登录名和密码

SystemUtil.Run  "D:\Program Files\HP\QuickTestProfessional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set ReadExcel("D:/case.xls","login",9,2)  '调用readexcel

Dialog("Login").WinEdit("Password:").Set ReadExcel("D:/case.xls","login",9,3)

Dialog("Login").WinButton("OK").Click

  刚开始引用网上的writeexcel时，只有定义了四个参数，即doexcel(filepath,sheetname,x,y)在回放的时候有问题，然后跟朋友讨论的时候，考虑到writeexcel不能单独写成一个vbs文件进行调用，然后就添加了一个wrivalue参数，以备以后单独写成函数进行调用。

   有什么不正确的地方，请大家多多指正~~尽管砸鸡蛋吧。。。晚上我可以吃煎蛋哦~~请不要吝啬。。