_Excel_RangeWrite - How Do I go to next row before looping

[SkysLastChance]

I am trying to pull data from a website and input into excel for a set number of times. This is the code I have so far. How should I go about going down 1 row at a time? If there is a certain help file I should be looking at let me know.

expandcollapse popup

#include <IE.au3>
#include <Excel.au3>



Excel ()
$sBox = InputBox ("Chart", "How Many Times")


Func Excel ()

While ProcessExists("EXCEL.EXE")
$ms = MsgBox(5,"","Process error.  You have an Excel sheet open.  You must close it in order to let this program work.  Please close it now.")
    If $ms=2 Then Exit
Sleep(250)
WEnd
   Global $sExcelFile = FileOpenDialog("Choose/Create Excel File", @ScriptDir, "(*.xlsx)")

If FileExists($sExcelFile) Then
   Global $oExcel = _Excel_Open ()
    $oExcel = _Excel_BookOpen($oExcel,$sExcelFile) ;this will open the chosen xls file.

EndIf
EndFunc



Local $i = 0

Do
$oIE = _IE_Example("basic")
$oDiv = _IEGetObjById($oIE, "line1")
_Excel_RangeWrite($oExcel,Default, $oDiv.innertext, "A1")
$oDiv = _IEGetObjById($oIE, "line2")
_Excel_RangeWrite($oExcel,Default, $oDiv.innertext, "B1")
$oDiv = _IEGetObjById($oIE, "line3")
_Excel_RangeWrite($oExcel,Default, $oDiv.innertext, "C1")

$i = $i + 1

Until $i = $sBox

 

 

 

 

 

 

 

 

 

 

 

 

 

[water]

Try:

Local $i = 1
Do
    $oIE = _IE_Example("basic")
    $oDiv = _IEGetObjById($oIE, "line1")
    _Excel_RangeWrite($oExcel,Default, $oDiv.innertext, "A" & $i)
    $oDiv = _IEGetObjById($oIE, "line2")
    _Excel_RangeWrite($oExcel,Default, $oDiv.innertext, "B" & $i)
    $oDiv = _IEGetObjById($oIE, "line3")
    _Excel_RangeWrite($oExcel,Default, $oDiv.innertext, "C" & $i)
    $i = $i + 1
Until $i > $sBox

 

[SkysLastChance]

I can't thank you enough.

[water]

[SkysLastChance]

NVM

Edited November 15, 2016 by SkysLastChance