Jay: Take a look at http://www.sqaforums.com/showflat.php?Number=703047.
hth, Parke On Fri, Aug 2, 2013 at 1:39 PM, jay rawat <[email protected]> wrote: > ''//Declarations needed > Const usr = "Auto00" > Const pw = "fis@1230" > test_Link = "http://billerconsole.html"; ''//example link here > DriverSheet = "C:\Driver.xls" > > Now when I run below code then in msg box "Login (usr, pw, res)" should > get displayed which is actually symbolizes call to Login fn from Function > Library mentioned below. > However, value fetched in fn varaible from excel sheet will be fetched as > string so writing Call fn, will never run fn function and will bring error > as call is to a string value fetched from excel and not to fuction entered > in excel. > I want to fetch value from excel as function call in fn variable > Set objExcel = CreateObject("Excel.Application") > objExcel.Visible = True > objExcel.DisplayAlerts = False > Set obj_Driver_WB = objExcel.Workbooks.Open (DriverSheet) > Set obj_Driver_WS = obj_Driver_WB.Worksheets(1) > fn = obj_Driver_WS.Cells(1, 1).value > obj_Driver_WB.Save > obj_Driver_WB.Close > objExcel.Quit > msgbox fn > > > Call fn > > > > Public Sub Login (fusr, fpwd, result) > result = "false" > Cust_LaunchBrowser(test_Link) > Browser("Biller Console").Page("Biller_Login").WebEdit("txt_loginid").Set > fusr > Browser("Biller Console").Page("Biller_Login").WebEdit("txt_password").Set > fpwd > Browser("Biller Console").Page("Biller_Login").WebButton("btn_Log > in").Click > > wait (5) > msg_Logo = Browser("Biller > Console").Page("Admin").Frame("Header").WebElement("we_Biller").GetROProperty("innertext") > > If trim(msg_Logo) = "Biller" Then > Reporter.ReportEvent micPass, "Login", "User successfully logged in > Biller" > result = "true" > Else > 'msgbox "failed" > Reporter.ReportEvent micFail, "Login", "User successfully logged in as > different Biller" > result = "false" > End If > > End Sub > > Public Sub Cust_LaunchBrowser(furl) > ' On Error Resume Next > Set IE = CreateObject("InternetExplorer.Application") > IE.Visible = true > IE.Navigate furl > IE.Left =0 > IE.Top =0 > IE.Height = 740 > IE.Width = 1025 > launchBrowser=true > 'Set IE = Nothing > ' On Error Goto 0 > End Sub > > -- > -- > You received this message because you are subscribed to the Google > "QTP - HP Quick Test Professional - Automated Software Testing" > group. > To post to this group, send email to [email protected] > To unsubscribe from this group, send email to > [email protected] > For more options, visit this group at > http://groups.google.com/group/MercuryQTP?hl=en > > --- > You received this message because you are subscribed to the Google Groups > "QTP - HP Quick Test Professional - Automated Software Testing" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > For more options, visit https://groups.google.com/groups/opt_out. > > > -- Parke Cell: 770-842-0121 -- -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en --- You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/groups/opt_out.
