Sign in to follow this  
Followers 0
Sorak99

Table to .xls

3 posts in this topic

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

Share this post


Link to post
Share on other sites



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

Dale


Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0