RE: Update a Cell in a MS EXCEL Worksheet

You're welcome. I just noticed that the program I modeled for you was using
the new (SS) API.

For the HSSF API (which you probably want), change .ss. to .hssf. as in:

ExtProc(*JAVA:
'org.apache.poi.hssf.-
usermodel.HSSFWorkbook':
'getNumberOfSheets')

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"A diplomat is a man who always remembers a woman's birthday but never
remembers her age."
-- Robert Frost

Thanks Dennis,
This gives me a starting point.


Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical
Solutions V5R2
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions
Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical
Solutions Implementer V5R3








________________________________
From: Dennis Lovelady <iseries@xxxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Wed, June 9, 2010 10:03:43 AM
Subject: RE: Update a Cell in a MS EXCEL Worksheet

Unfortunately I cannot post this entire program, but I can post some of
the
pieces you might need.

Here's a start; tell me what else you need.

D Workbook_getNumberOfSheets...
D                PR            10I 0
D                                    ExtProc(*JAVA:
D                                    'org.apache.poi.ss.-
D                                    usermodel.Workbook':
D                                    'getNumberOfSheets')

  If book <> *NULL ;
    nbrSheets = Workbook_getNumberOfSheets(book) ;
    For SN = 0 to nbrSheets - 1 ;
        sheetName = hssf_getSheetName(book: SN) ;
        workSheet = hssf_getSheet(book: sheetName) ;
        If workSheet <> *NULL ;
          processSheetData(book: workSheet: sheetName) ;
        EndIF ;
    EndFOR ;
  EndIF ;


P processSheetData...
P                B
D processSheetData...
D                PI
D  book                              like(HSSFWorkbook)
D  Sheet                            Like(HSSFSheet)
D  sheetName                  32    Varying Value

  GatherStats('Processing sheet' + sheetName) ;
  RN = 0 ;
  row = HSSFSheet_getRow(sheet: RN) ;
  cell = HSSFRow_getCell(row: 0) ;

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"When I was a boy of fourteen, my father was so ignorant I could hardly
stand to have the old man around.  But when I got to twenty-one, I was
astonished at how much he had learned in seven years."
        -- Mark Twain

I have used Scotts XLPARSER4 service program in the past to read a
single worksheet and process it.\
I now have a need to read multiple worksheets from a workbook and
update a specific value.
Can someone point me to an example or sample code on what I need to

do

this?

Thanks,

Jeff Young