Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

OLE / Rexx/ Excel question

6 views
Skip to first unread message

PeCoNe

unread,
Oct 29, 2009, 4:37:05 PM10/29/09
to
See code below:
Question is between
*------------------- lines


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


0 new messages