DO w = 1 TO wrkBooks.0
myExcel~WorkBooks~Open(wrkBooks.w)
END
SAY 'Pres ENTER to start'
PULL .
DO WHILE Time() < PgmEndTime
CALL GetQuotes
CALL SysSleep WaitTime
END
myExcel~WorkBooks(wrkBooks.0)~Close("SAVEALL")
myExcel~Quit
EXIT 0
GetQuotes:
DO s = 1 TO Symbols.0
IF Time() < BegTime.s THEN
ITERATE
IF Time() > EndTime.s THEN
ITERATE
Symbol = Symbols.s
URL = URL.s
CALL WGET
trace ?R
say myExcel~ActiveWorkbook
myExcel~Sheets("Euronext")~Select
*-------------------------------------------------------------------------------------------------
Here it goes wrong.
I must point to the right workbook and the right worksheet
to select and update the right cells.
How do i do that.
*---------------------------------------------------------------------------------------------------
DO z = 1 TO zTbl.0
row = s + 2
col = SUBSTR(Cols,z,1)
mySheet~Cells(row,col)~Value = zTbl.z.Value
END
END
RETURN