Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 01/08/2019 in all areas

  1. Or _Excel_RangeRead($oWorkbook, 1, $oWorkbook.Sheets("DeleteCourses").Usedrange.Columns("A:A"))
    1 point
  2. Assuming that the sheet actually exists, the following line will make sure that the sheet is active: $oExcel.Sheets("DeleteCourses").Activate
    1 point
  3. JoHanatCent

    Activate Excel Window

    Do _Excel_Open once Then the WorkBooks. Don't need to switch Windows to get the values: #include <Excel.au3> Local $oExcel = _Excel_Open() ;Open Test1 Excel Workbook Local $ofile = @ScriptDir & "\test1.xlsx" Local $oWorkbook = _Excel_BookOpen($oExcel, $ofile) ;Open Test2 Excel Workbook Local $mfile = @ScriptDir & "\test2.xlsx" Local $mWorkbook = _Excel_BookOpen($oExcel, $mfile) ;Read Workbook data and display Local $read1 = _Excel_RangeRead($oWorkbook, Default, "B2") ; Cell B1 in Test1 workbook contains the word Test1 Local $read2 = _Excel_RangeRead($mWorkbook, Default, "B2") ; Cell B1 in Test2 workbook contains the word Test2 MsgBox(0, 0, $read1 & @CR & $read2) ;Returns the correct values.
    1 point
  4. Can you try re-ordering the script so that the orange is on top? See if that changes anything. Also, you could put a consolewrite line in the end of the script with the 3 variables to see what the result is. Also you could troubleshoot for error, with @error, and check if the orange.png and grey.png are exactly the same as the program. Is there any change from red.png to the other 2 in terms of size or something?
    1 point
  5. You are already on the success way then :). If i did it, you can do it.
    1 point
  6. Sorry a bit difficult to write code without testing, but you should be able to fix this by changing the SearchCourse(..) function, adding Return DeleteCourseBegin ;~ Now that were logged in, navigate to the course search page. Func SearchCourse($_sSearchItem) _IENavigate($oIE, $urlBBCourseSearch) ;~ Change the search criteria to "Course ID" _bbCourseSearchCategoryChange("Course ID") ;~ Paste whats copied into the search text box and click submit Local $oForm = _IEGetObjByName($oIE, "courseManagerFormSearch") Local $oSearchString = _IEFormElementGetObjByName($oForm, "courseInfoSearchText") _IEFormElementSetValue($oSearchString, $_sSearchItem) _IEFormSubmit($oForm) ;~ Lets see what we got from the search Local $oBBTable = _IETableGetCollection($oIE, 2) $aBBTableData = _IETableWriteToArray($oBBTable) _ArrayDisplay($aBBTableData) Return DeleteCourseBegin() EndFunc ;==>SearchCourse
    1 point
×
×
  • Create New...