Table to .xls

[Sorak99]

Hello,

Trying to get a collection of stock information. I plan on running editing this code to eventually organize the data into a spreadsheet. But i cant get anything to work. Any hints?

CODE

#include <IE.au3>

#include <Array.au3>

#include <File.au3>

If Not _FileCreate("C:\book1.txt") Then

MsgBox(4096, "Error", " Error Creating/book1.txt. error:" & @error)

EndIf

$sentlistfile = FileOpen("C:\book1.txt", 1)

; Check if file opened for writing OK

;If $book1= -1 Then

; MsgBox(0, "Error", "Unable to open file.")

; Exit

;EndIf

$sURL = "http://moneycentral.msn.com/detail/stock_quote?Symbol=pd"

$oIE = _IECreate($sURL)

$oTable = _IETableGetCollection ($oIE, 10)

$oTable1 = _IETableGetCollection ($oIE, 11)

$aTableData = _IETableWriteToArray ($oTable)

$aTableData1 = _IETableWriteToArray ($oTable1)

Local $i = 0, $j = 0, $line

Local $iMax = Ubound($aTableData, 0) - 1, $jMax = Ubound($aTableData, 1) - 1

For $i = 0 To $iMax

$line = ""

For $j = 0 to $jMax

$line &= $aTableData[$i][$j]

If $j = $jMax Then

FileWriteLine("C:\book1.txt", $line)

Else

$line &= ","

EndIf

Next

Next

George

[DaleHohm]

You'll need to explain what trouble you are having and what you have done to try to fix it.

Dale

[nobbe]

hi

on run it says

(30) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

you may want to try to debug the array and display contents with something like

; table 1

If $DEBUG > 0 Then

For $run = 0 To $iNumTables

$oTable = _IETableGetCollection($oIE, $run)

$aTableData = _IETableWriteToArray($oTable)

;testing all array

_ArrayDisplay2D($aTableData, "Run " & $run, 1, 0)

Next ; run ..

EndIf

;
;
;
;
;
Func _ArrayDisplay2D($aArray, $sTitle = 'Array Display 2Dim', $iBase = 1, $sToConsole = 0)
    If Not IsArray($aArray) Then Return SetError(1, 0, 0)
    Local $sHold = 'Dimension 1 Has:  ' & UBound($aArray, 1) - 1 & ' Element(s)' & @LF & _
            'Dimension 2 Has:  ' & UBound($aArray, 2) - 1 & ' Element(s)' & @LF & @LF

    For $iCC = $iBase To UBound($aArray, 1) - 1
        For $xCC = 0 To UBound($aArray, 2) - 1
            $sHold &= '[' & $iCC & '][' & $xCC & ']  = ' & $aArray[$iCC][$xCC] & @LF
        Next
    Next

    If $sToConsole Then Return ConsoleWrite(@LF & $sHold)
    Return MsgBox(262144, $sTitle, StringTrimRight($sHold, 1))
EndFunc   ;==>_ArrayDisplay2D