Need small help to read excel cell .

[Andy2520]

Dear Team,

I am creating one script it should read the content of Ms excel cell if content is there script should process .If content is not there in cell script should exit with msg box .

Here is the code  .could you please help me in the same  .

#include <Excel.au3>
#include <MsgBoxConstants.au3>

Local $oExcel = _ExcelBookOpen("d:\ani.xls",0)
;Local $oExcel = _ExcelBookNew() ;Create new book, make it visible

;For $i = 1 To 5 ;Loop
   ; _ExcelWriteCell($oExcel, $i, $i, 1) ;Write to the Cell
;Next

Local $sCellValue, $sCellValue1 ,$splitsrname1,$splitsrnameyear,$splitsrnamedate,$splitsrnamemonth,$splitsrnamemonth1
For $i = 2 To 3
;Loop
    $sCellValue = _ExcelReadCell($oExcel, $i, 1)
    $sCellValue1 = _ExcelReadCell($oExcel, $i, 2)
    $splitsrname1 = StringLeft($sCellValue1, 8)
    $splitsrnameyear = StringLeft($splitsrname1,4)
    $splitsrnamedate = Stringright($splitsrname1,2)
    $splitsrnamemonth =Stringright($splitsrname1,4)
    $splitsrnamemonth1 =StringLeft($splitsrnamemonth,2)
    dim $DOB =$splitsrnamedate&$splitsrnamemonth1&$splitsrnameyear
    MsgBox($MB_SYSTEMMODAL, "", "The Cell Value is: " & @CRLF & $sCellValue, 2)
    MsgBox($MB_SYSTEMMODAL, "", "The Cell Value is: " & @CRLF & $splitsrnameyear , 2)
    MsgBox($MB_SYSTEMMODAL, "", "The Cell Value is: " & @CRLF & $splitsrnamedate  , 2)
    MsgBox($MB_SYSTEMMODAL, "", "The Cell Value is: " & @CRLF & $splitsrnamemonth1 , 2)
    MsgBox($MB_SYSTEMMODAL, "", "The Cell Value is: " & @CRLF & $DOB, 2)
    if $sCellValue =" " then
       MsgBox($MB_SYSTEMMODAL, "test", "there is no data in cell now exit")
       Exit
     EndIf
Next

Edited August 7, 2014 by Andy2520

[water]

Doesn't look bad. What doesn't work?

[Andy2520]

Thanks Water for your reply!! .

if one cell is empty or doesnot have any content it should exit the script .in above code script reading till last cell i.e For $i = 2 To 3.

I need as soon as if get empty value frm cell it should exit .

[water]

Could you test for cells with no content ("")? Now you test for cells with a space as content:

if $sCellValue = "" then

Edited August 7, 2014 by water

[Andy2520]

Thanks Water

So sorry i have asked stupid help ..Simple issue . tried its working fine  .. thank you so much

[water]