Kbase P5907: How to pull data from an Excel spreadsheet into Progress usi
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
1/30/2003 |
|
Status: Unverified
GOAL:
How to pull data from an Excel spreadsheet into Progress using ActiveX?
FIX:
The sample code below pulls some data from an excel file (Sheet2) using ActiveX programming technique. Notice that it uses a pre-saved excel spreadsheet to accomplish this functionality. In order to successfully run it, Progress should be able to find a file named activeX.xls under the c:\temp directory.
/******************************************************************************/
DEFINE VARIABLE vchExcel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchWorkBook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchWorkSheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE viRow AS INTEGER NO-UNDO.
DEFINE VARIABLE vcFileName AS CHARACTER
INITIAL "c:\temp\activeX.xls":U NO-UNDO.
CREATE "Excel.Application":U vchExcel.
ASSIGN
vchExcel:VISIBLE = TRUE
vchWorkBook = vchExcel:Workbooks:OPEN(vcFileName)
vchWorkSheet = vchExcel:Sheets:Item(2).
REPEAT viRow = 2 TO 6:
MESSAGE ROUND(vchWorkSheet:Range("A":U + STRING(viRow)):VALUE,0) SKIP
vchWorkSheet:Range("B":U + STRING(viRow)):VALUE SKIP
vchWorkSheet:Range("C":U + STRING(viRow)):VALUE SKIP
vchWorkSheet:Range("D":U + STRING(viRow)):VALUE SKIP
vchWorkSheet:Range("E":U + STRING(viRow)):VALUE
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
vchWorkBook:CLOSE().
vchExcel:QUIT.
IF VALID-HANDLE(vchWorkSheet) THEN
RELEASE OBJECT vchWorkSheet.
IF VALID-HANDLE(vchWorkBook) THEN
RELEASE OBJECT vchWorkBook.
IF VALID-HANDLE(vchExcel) THEN
RELEASE OBJECT vchExcel.
/******************************************************************************/