Re: Update a Cell in a MS EXCEL Worksheet

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
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.