Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
proc main
long LinkVar, SystemVar ;Variables containing DDE Id's.
string szText ;Text read from DDE link to Excel.
integer iRow ;Row and column variables
string sRowCol ;Holds request for row and column
integer iLen ;Holds length of string received from Excel
iRow = 1 ;Start reading with row 1
;Set up DDE links to Excel's system and a spreadsheet. Excel
;must be running in order for this script to work properly.
if ddeinit SystemVar "excel" "system"
ddeexecute SystemVar "[FULL(TRUE)]" ;Maximize the spreadsheet.
if ddeinit LinkVar "excel" "sheet1" ;Set up link to spreadsheet.
while 1 ;Loop forever.
strfmt sRowCol "R%dC%d" iRow 3 ;Format request for data from current row, column 3
dderequest LinkVar sRowCol szText ;Read data from spreadsheet, current row, column 3
strlen szText iLen ;Get length of string
if iLen == 2 ;Indicates empty cell
exitwhile ;Exit the while loop.
else
;your commands go here
endif
iRow++ ;Increment row value
endwhile
ddeterminate LinkVar ;Break DDE link to spreadsheet.
ddeterminate SystemVar ;Break DDE link to Excel.
else
errormsg "Couldn't establish DDE link to spreadsheet!"
endif
else
errormsg "Couldn't establish DDE link to Excel!"
endif
endproc