_Excel_RangeRead in Loop until end of the cell

[DigDeep]

I have 2 issues here.

1. I have an excel with random rows and column numbers. from the below code, I am able to find that the current Excel has 25 lines. I want to therefore read from A1:A25 to find the text 'True' and delete the complete row.

The code works all fine until if it finds the word 'False' in between it stops looking further. My goal is to keep only the rows with False text and delete all the true ones.

2. Once the Excel is read till the end and all the TRUE ones are deleted, Excel should be closed. But it gives me Variable not declared error because I am keeping _Excel_BookClose($oWorkbook, True) inside the Wend and not outside.

 

Can someone please fix these 2 issues?

#RequireAdmin

#include <File.au3>
#include <Excel.au3>

Global $oExcel = _Excel_Open($Excel)
Global $oWorkbook = _Excel_BookOpen($oExcel, @DesktopDir & "Test.xls")

Local $CountLines = $oWorkbook.ActiveSheet.UsedRange.Rows.Count
$i = 1
While $i <= $CountLines
    Local $CellVal = _Excel_RangeRead($oWorkbook, Default, "A2")
    If $CellVal = 'True' Then
        _Excel_RangeDelete($oWorkbook.ActiveSheet, "2:2", 1)
        Sleep(500)

;~  ElseIf $sResult7 = 'False' Then
        ; do nothing
        ContinueLoop
    EndIf
    $i = $i + 1
    _Excel_BookClose($oWorkbook, True)
WEnd

 

[water]

When deleting records you should always start with the last record:

#RequireAdmin
#include <File.au3>
#include <Excel.au3>
Globa $CellVal
Global $oExcel = _Excel_Open($Excel)
Global $oWorkbook = _Excel_BookOpen($oExcel, @DesktopDir & "\Test.xls")
Global $CountLines = $oWorkbook.ActiveSheet.UsedRange.Rows.Count
For $i = $Countlines to 1 Step -1
    $CellVal = _Excel_RangeRead($oWorkbook, Default, "A" & $i)
    If $CellVal = 'True' Then
        _Excel_RangeDelete($oWorkbook.ActiveSheet, $i & ":" & $i, 1)
    EndIf
Next
_Excel_BookClose($oWorkbook, True)

 

[DigDeep]

Thanks @water

Worked as expected.