| 1 | #include <Excel.au3>
|
|---|
| 2 | #include <Array.au3>
|
|---|
| 3 |
|
|---|
| 4 | ; AutoIT 3.3.12.0 (Production), tested with Excel 2007.
|
|---|
| 5 | ;
|
|---|
| 6 | ; _Excel_RangeFind test file
|
|---|
| 7 | ;
|
|---|
| 8 | ; Testing search functionality by searching for strings in and across sheets.
|
|---|
| 9 |
|
|---|
| 10 | ; Create Excel object
|
|---|
| 11 | Local $oExcel = _Excel_Open()
|
|---|
| 12 |
|
|---|
| 13 | ; Create two new sheets, both with one sheet each.
|
|---|
| 14 | Local $oBookNumbers = _Excel_BookNew($oExcel, 1)
|
|---|
| 15 | Local $oBookLetters = _Excel_BookNew($oExcel, 1)
|
|---|
| 16 |
|
|---|
| 17 | ; Populate sheets with data.
|
|---|
| 18 | For $i = 1 To 100
|
|---|
| 19 | $oBookNumbers.Sheets(1).Range("A" & String($i)).Value = $i
|
|---|
| 20 | $oBookLetters.Sheets(1).Range("A" & String($i)).Value = _Excel_ColumnToLetter($i)
|
|---|
| 21 | Next
|
|---|
| 22 |
|
|---|
| 23 | ; Define search results variable
|
|---|
| 24 | Local $search
|
|---|
| 25 |
|
|---|
| 26 | MsgBox(0, "Active sheet", "The following four searches search the active sheet. These work as expected.")
|
|---|
| 27 |
|
|---|
| 28 | ; Set the active sheet to the sheet with numbers...
|
|---|
| 29 | $oBookNumbers.Sheets(1).Activate
|
|---|
| 30 |
|
|---|
| 31 | ; These searches will work just fine.
|
|---|
| 32 | $search = _Excel_RangeFind($oBookNumbers, "42", "A1:A100")
|
|---|
| 33 | _ArrayDisplay($search, """42"" on active sheet (numbers) with range as string")
|
|---|
| 34 | $search = _Excel_RangeFind($oBookNumbers, "42", $oBookNumbers.Sheets(1).Range("A1:A100"))
|
|---|
| 35 | _ArrayDisplay($search, """42"" on active sheet (numbers) with range as object")
|
|---|
| 36 |
|
|---|
| 37 | ; Set the active sheet to the one with letters...
|
|---|
| 38 | $oBookLetters.Sheets(1).Activate
|
|---|
| 39 |
|
|---|
| 40 | ; Once again, both of these searches should also work fine.
|
|---|
| 41 | $search = _Excel_RangeFind($oBookLetters, "AF", "A1:A100")
|
|---|
| 42 | _ArrayDisplay($search, """AF"" on active sheet (letters) with range as string")
|
|---|
| 43 | $search = _Excel_RangeFind($oBookLetters, "AF", $oBookLetters.Sheets(1).Range("A1:A100"))
|
|---|
| 44 | _ArrayDisplay($search, """AF"" on active sheet (letters) with range as object")
|
|---|
| 45 |
|
|---|
| 46 | MsgBox(0, "Cross-sheet", "The following four searches search the inactive book. The first and third fail, but do not return errors.")
|
|---|
| 47 |
|
|---|
| 48 | ; Set the active sheet to the one with letters...
|
|---|
| 49 | $oBookLetters.Sheets(1).Activate
|
|---|
| 50 |
|
|---|
| 51 | ; Despite each book only having one sheet, the string search fails if the search sheet is not active.
|
|---|
| 52 | $search = _Excel_RangeFind($oBookNumbers, "42", "A1:A100")
|
|---|
| 53 | _ArrayDisplay($search, """42"" on numbers sheet with range as string. Failed search")
|
|---|
| 54 | $search = _Excel_RangeFind($oBookNumbers, "42", $oBookNumbers.Sheets(1).Range("A1:A100"))
|
|---|
| 55 | _ArrayDisplay($search, """42"" on numbers sheet with range as object")
|
|---|
| 56 |
|
|---|
| 57 | ; Set the active sheet to the one with numbers...
|
|---|
| 58 | $oBookNumbers.Sheets(1).Activate
|
|---|
| 59 |
|
|---|
| 60 | ; Same thing with searching numbers.
|
|---|
| 61 | $search = _Excel_RangeFind($oBookLetters, "AF", "A1:A100")
|
|---|
| 62 | _ArrayDisplay($search, """AF"" on letters sheet with range as string. Failed search")
|
|---|
| 63 | $search = _Excel_RangeFind($oBookLetters, "AF", $oBookLetters.Sheets(1).Range("A1:A100"))
|
|---|
| 64 | _ArrayDisplay($search, """AF"" on letters sheet with range as object")
|
|---|
