|
设置一个函数,将对象库进行参数化,然后由其他程序调用该函数,但是总提示错误。请看以下代码:
Function SelectRFQNo(link,frame)
Dim RFQ_Number
RFQ_Number = datatable.RawValue("RFQno",dtGlobalSheet)
browser("OfficeMax").Page("OfficeMax_RFQ").Frame("topFrame").Link("RFQ").click
Browser("OfficeMax").Page("OfficeMax_RFQ").Frame("topFrame").Link("text:=" &link).click
Browser("OfficeMax").Page("OfficeMax_RFQ").Frame("title:=" &frame,"name:= mainFrame").exit
Browser("OfficeMax").Page("OfficeMax_RFQ").Frame("title:=" &frame,"name:= mainFrame").WebEdit("sRfqNo").Set RFQ_Number
Browser("OfficeMax").Page("OfficeMax_RFQ").Frame("title:=" &frame,"name:= mainFrame").Link("Search").Click
If Browser("OfficeMax").Page("OfficeMax_RFQ").Frame("title:=" &frame,"name:= mainFrame").Link("text:=" & RFQ_Number).Exist(1) Then
Browser("OfficeMax").Page("OfficeMax_RFQ").Frame("title:=" &frame,"name:= mainFrame").Link("text:=" & RFQ_Number).click
else
msgbox "Don't have the No. you want"
End If
End Function
请看提示信息截图
在线等答案 |
|