脚本回放过程中，附件上传不成功

swordredlin

Dear all

Please help me to  review the QTP script


Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebEdit("txtApplyDate").Object.value=datatable("Date",dtLocalSheet)

Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlRequireType").Select datatable("type",dtLocalSheet)
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("btnSearchCust").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Window("选择客户 -- Web Page Dialog").Page("选择客户").Frame("Frame").Link("信息技术有限公司").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlProvince").Select "贵州省"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlCity").Select "都匀市"
wait(2)
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("btnSearchProduct").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Window("选择产品 -- Web Page Dialog").Page("选择产品").Frame("Frame").Link("apple").Click

Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebEdit("txtQty").Set "22"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlProduct").Select "KeyouCRM6.2"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlProblemType").Select "下载试用"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebList("ddlSource").Select "邮件"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebEdit("txtSummar").Set "邮件下载速度非常慢"
wait(2)
browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebFile("RelatedFile").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Activate "PI.txt"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("上 传").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("保 存").Click
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebButton("关 闭").Click

脚本Run过程中，附件没有上传上去，也没有错误提示信息，请各位帮忙，感激不尽！

[ 本帖最后由 swordredlin 于 2010-3-26 16:32 编辑 ]

shotstar

Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Activate "PI.txt"

后面那个PI.txt是你要上传的文件么？把路径补全再试试。

风雪夜归人

browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebFile("RelatedFile").Click

然后是这种格式的,  Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Dialog("Choose file").WinEdit("xxx").Set "C:\QTP.exe"
Browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Dialog("Choose file").Type micReturn

或者你试试:
browser("CFS-CRM(T_Sally_测试)").Window("客户咨询 -- Web Page Dialog").Page("客户咨询").Frame("Frame").WebFile("RelatedFile").Set "C:\QTP.exe"

shotstar

楼上的后一种方法可以试试，我当时看的时候没注意到他的WebFile那段语句，感觉录制模式有问题，因为我在录制的时候只会录制到一句WebFile().Set "文件路径"，最简单直接的就上用楼上后一种，然后注释掉那个WinListView的语句

swordredlin

谢谢大家的帮忙，问题很顺利的解决了，非常感谢！

cbook

咋解决的啊，也不说，lj