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
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
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.