Please help my scripts giving an error

[devchaminda]

Hi,

 

When I running scenario_page.au3 page its gives following error message popup.

Error opening workbook 'C:Dev_ChamindaQAAutomation_TestingTest_Data

@error = 2, @extended = 0

 

System running read_excel_file.au3 page without an issue, when I run that page only.

 

My code as below.

expandcollapse popup

;/////////////////;///////////////////////read_excel_file.au3;/////////////////;/////////////////////////
#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>

$sResult = Call("readexcel", "C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "MyTest.xls", "Sheet1", "B", "2")
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", $sResult)

Func readexcel($filepath, $filename, $sheetval, $colnam, $rowval)
    ; Create application object and open an example workbook
    Local $oAppl = _Excel_Open(False)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $oWorkbook = _Excel_BookOpen($oAppl, $filepath & $filename, False, False, '', '')
    If @error Then
        MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & $filepath & @CRLF & "@error = " & @error & ", @extended = " & @extended)
        _Excel_Close($oAppl)
        Exit
    EndIf

    ; *****************************************************************************
    ; Read data from a single cell on the active sheet of the specified workbook
    ; *****************************************************************************
    Local $cellval = $colnam & $rowval
    Local $sResult = _Excel_RangeRead($oWorkbook, $sheetval, $cellval)
    ;_Excel_BookClose ( $oWorkbook,True)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Return $sResult
EndFunc   ;==>readexcel
;/////////////////;///////////////////write_excel_file.au3;/////////////////;//////////////////////
#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>

$sResult = Call("writexcel", "C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "Test.xls", "Sheet1", "DEV", "A", "1")

Func writexcel($filepath, $filename, $sheetval, $val, $colnam, $rowval)
    ; Create application object and open an example workbook
    Local $oAppl = _Excel_Open(False)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $oWorkbook = _Excel_BookOpen($oAppl, $filepath & $filename, False, False, '', '')
    If @error Then
        MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & $filepath & @CRLF & "@error = " & @error & ", @extended = " & @extended)
        _Excel_Close($oAppl)
        Exit
    EndIf

    ; *****************************************************************************
    ; Read data from a single cell on the active sheet of the specified workbook
    ; *****************************************************************************
    Local $range = $colnam & $rowval
    Local $sResult = _Excel_RangeWrite($oWorkbook, $sheetval, $val, $range)
    ;_Excel_BookClose ( $oWorkbook,True)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
EndFunc   ;==>writexcel
;/////////////////////////////my_login.au3;/////////////////;/////////////////////////////

#include <IE.au3>
#include <MsgBoxConstants.au3>

Func openbrowser($serval, $hostval)
    Local $url = "http://" & $serval & "/" & $hostval & "/frmLogin.aspx"
    Global $oIE = _IECreate($url, 0, 1, 1, 1)
    _IELoadWait($oIE)
EndFunc   ;==>openbrowser

Func IElogin($serval, $hostval, $myusr, $mypass)
    Local $url = "http://" & $serval & "/" & $hostval & "/frmLogin.aspx"
    _IENavigate($oIE, $url)
    _IELoadWait($oIE)
    Local $usr = _IEGetObjByName($oIE, "ctl00$cphMainContent$txtUserName")
    Local $psr = _IEGetObjByName($oIE, "ctl00$cphMainContent$txtPassword")
    _IEFormElementSetValue($usr, $myusr)
    _IEFormElementSetValue($psr, $mypass)
    Send("{ENTER}")
    _IELoadWait($oIE)
    Return $myusr & ", Successfully login."
EndFunc   ;==>IElogin

Func IElogout($serval, $hostval)
    Local $url = "http://" & $serval & "/" & $hostval & "/frmLogin.aspx"
    _IENavigate($oIE, $url)
    _IELoadWait($oIE)
    _IEQuit($oIE)
    Return "Successfully logout."
EndFunc   ;==>IElogout

Func closebrowser()
    _IEQuit($oIE)
    Return "Close browser."
EndFunc   ;==>closebrowser
;/////////////////;/////////////////////scenario_page.au3;/////////////////////////////

#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <write_excel_file.au3>
#include <read_excel_file.au3>
#include <my_login.au3>
#include <Array.au3>
#include <Excel.au3>

Local $serval = Call("readexcel", "C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "MyTest.xls", "Sheet1", "B", "2")
Local $hostval = Call("readexcel", "C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "MyTest.xls", "Sheet1", "C", "2")
Local $usr = Call("readexcel", "C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "MyTest.xls", "Sheet1", "D", "2")
Local $psr = Call("readexcel", "C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "MyTest.xls", "Sheet1", "E", "2")

Call("openbrowser", $serval, $hostval)
Local $res = Call("IElogin", $serval, $hostval, $usr, $psr)
Call("IElogout", $serval, $hostval)
Call("closebrowser")
Call("writexcel", "C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "MyTest.xls", "Sheet1", $res, "F", "2")
;/////////////////;/////////////////;/////////////////;/////////////////;///////////////////////////

Edited February 11, 2015 by Melba23
Added code tags

[Melba23]

devchaminda,

Welcome to the AutoIt forums.

When you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

M23

[JLogan3o13]

The error message is telling you the problem, @error = 2 on _Excel_BookOpen means it cannot find the file. Make sure the file is where you think it is in your directory structure. If you want more than this, you're going to have to provide full code, including your custom includes, or a pared down reproducer that removes these functions.

[water]

No need to use "Call".

; $sResult = Call("readexcel", "C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "MyTest.xls", "Sheet1", "B", "2")
$sResult = readexcel("C:\Dev_Chaminda\QA\Automation_Testing\Test_Data\", "MyTest.xls", "Sheet1", "B", "2")

[devchaminda]

Hi All,

Its working after i create a new scenario page.

Thanks Melba23 and thank others as well.

I am planing to automate web application using AutoIT and its kind of pilot project(find a alternative for Selenium). I get to know this tool in 2011, but now i see may improvement. Since this is an free tool this has very good help file and its really impressive, that lets me to use this tool now and really great-full to thanks every one who gave their contribution to take this tool up to this level.

..................

Thanks

Dev chaminda