Chapter 6 Application Programs
Example Program for Excel 97
140
7R#ZULWH#DQ#([FHO#PDFUR#\RX#PXVW#ILUVW#RSHQ#D#PRGXOH#LQ#([FHO1#*R#WR#WKH#9LHZ#
PHQX/#FKRRVH#7RROEDUV/#DQG#WKHQ#VHOHFW#&RQWURO#7RROER[1#7KH#&RQWURO#7RROER[#
GLDORJ#ER[#DSSHDUV1#6HOHFW#WKH#&RPPDQG#EXWWRQ#LQ#WKH#GLDORJ#ER[1#&OLFN#FHOO#
$4#DQG#GUDJ#DFURVV#WKH#FHOO#%61#7KH#§&RPPDQG%XWWRQ4¨#ER[#LV#FUHDWHG1#7R#
FKDQJH#WKH#EXWWRQ#QDPH/#FOLFN#WKH#ULJKW#PRXVH#EXWWRQ#RQ#WKDW#EXWWRQ#DQG#WKHQ#
VHOHFW#3URSHUWLHV1#7KH#3URSHUWLHV#GLDORJ#ER[#DSSHDUV1#,Q#WKH#3URSHUWLHV#GLDORJ/#
FKDQJH#WKH#§+QDPH,¨#DQG#§FDSWLRQ¨#WR#§'LRGH¨1#7R#WU\#WKH#H[DPSOH#IRU#
FKDUDFWHUL]LQJ#D#GLRGH/#W\SH#§9ROWDJHV¨#LQ#FHOO#$7#DQG#§&XUUHQW¨#LQ#FHOO#%71#,Q#
FHOO#$8#W\SH#3191#)LOO#LQ#WKH#FHOOV#$8#WR#$48#LQ#3135#LQFUHPHQWV#VR#WKDW#FHOO#$48#
FRQWDLQV#31;1
7R#HQWHU#WKH#§'LRGH¨#PDFUR#H[DPSOH#LQ#WKLV#VHFWLRQ/#JR#WR#WKH#9LHZ#PHQX/#
FKRRVH#7RROEDUV/#DQG#WKHQ#9LVXDO#%DVLF#(GLWRU#LFRQ1#7KH#§&RGH#ZLQGRZ¨#
DSSHDUV1#7KHQ#W\SH#WKH#WH[W#DV#VKRZQ#RQ#SDJH#46<#LQWR#WKH#§>0RXGOH4#+FRGH,@¨#
ZLQGRZ1#7R#HQWHU#WKH#GHFODUDWLRQ#IRU#:LQGRZV
#<8217/#JR#WR#WKH#,QVHUW#PHQX/#
FKRRVH#0RGXOH1#7KH#§0RGXOH#ZLQGRZ¨#DSSHDUV1#7KHQ#W\SH#WKH#WH[W#DV#VKRZQ#
VWDUWLQJ#RQ#SDJH#4741#7KLV#PRGXOH#ZLOO#FRQILJXUH#DOO#RI#WKH#RYHUKHDG#UHTXLUHG#
WR#FRPPXQLFDWH#ZLWK#WKH#SRZHU#VXSSO\#RYHU#WKH#LQWHUIDFH1#&KRRVH#WKH#
SUHIHUUHG#LQWHUIDFH#E\#VHWWLQJ#§E+3,% ¨#WR#§7UXH¨#RU#§)DOVH¨#DQG#FKDQJH#WKH#
+30,%#DGGUHVV#RU#560565#SRUW#LQ#WKH#URXWLQH#§2SHQ3RUW+#,ªª#FRQWDLQHG#LQ#WKH#
PRGXOH1
7R#UXQ#WKH#PDFUR/#UHWXUQ#EDFN#WR#WKH#([FHO#ZLQGRZ#DQG#VHOHFW#WKH#5XQ#0DFUR#
EXWWRQ#LQ#WKH#GLDORJ#ER[#DQG#FKRRVH#WKH#PDFUR#QDPH/#DQG#WKHQ#FOLFN#RQ#WKH#
5XQ#EXWWRQ#1#7KH#SRZHU#VXSSO\#ZLOO#UHVHW#WR#SRZHU#RQ#FRQGLWLRQ#DQG#WKHQ#VWHS#
WKURXJK#WKH#YROWDJHV#LQ#WKH#ZRUNVKHHW1#$IWHU#HDFK#VWHS#WKH#FXUUHQW#LV#PHDVXUHG/#
DQG#UHFRUGHG#LQ#WKH#ZRUNVKHHW1
0DNH#DQ\#FKDQJHV#QHFHVVDU\#WR#VXLW#\RXU#DSSOLFDWLRQ#LQ#WKH#§'LRGHªª#PRGXOH1#
<RX#PXVW#HQWHU#WKH#LQIRUPDWLRQ#LQ#WKH#PRGXOHV#H[DFWO\#DV#VKRZQ#RU#HUURU#ZLOO#
EH#JHQHUDWHG1#,I#VHYHUDO#V\VWHP#HUURUV#RFFXU#ZKLOH#DWWHPSWLQJ#WR#UXQ#D#PDFUR/#
\RX#PD\#KDYH#WR#UHERRW#\RXU#3&#WR#JHW#WKH#+30,%#SRUW#RU#560565#SRUW#WR#ZRUN#
SURSHUO\1
Note To use the example with Window
3.1, you will need to modify the declarations at
the top of the module. Change ‘visa32.dll’ to ‘visa.dll’ in all declarations.
To Next Page
Loading...
