Comments on: Transfer Data from iSeries to Excel

By: donethat

donethat — Sat, 28 Jun 2008 22:37:32 +0000

You want to upload/download directly from DB2 to Excel – no intermediate processes. To do this you must set up and ODBC connection and then you can suck the data VERY simply using SQL.

Unfortunately, my VBA code is extremely complex and based on variables so I can’t paste anything useful here.

Buy this book from MC Press Online: i5/OS and MS Office Integration Handbook by Chris Peters, Brian Singleton.

It has the EXACT VBA code you need to do the job. I.E. Connect to DB2 and populate a spreadsheet starting at any cell.

The code is basic, simple and works. You can then build and modify as necessary.

Hope this helps.

By: bigmac46

bigmac46 — Fri, 27 Jun 2008 16:13:18 +0000

You can create a menu option on the 400 to call a CLLE that :
1. runs a remote command on the PC to do the transfer to an excel file.Path on pc to the transfer is needed.
2.run another remote command to Open EXCEL with the specfic file created.
3. then, if needed, signoff the user from the 400

Then you can do what ever is needed in EXCEL.

It must be done interactive not batch.
We use this method on a regular basis. If the processing needed to create info for the download we send a mesage to user tthat the file is ready and to take the transfer option.
Set the transfer to auto run automatically and the user just waits a few seconds depending on length it takes transfer to run.

 PGM                                                         
       DCL        VAR(&STRCMD) TYPE(*CHAR) LEN(55) +         
                    VALUE('C:\DOWNLOAD\Transfer1.DTF')       
       DCL        VAR(&PCCMD) TYPE(*CHAR) LEN(55)            
       STRPCO     PCTA(*NO)                                  
       MONMSG     MSGID(IWS4010)                             
       STRPCCMD   PCCMD(&STRCMD) PAUSE(*NO)                  
        STRPCO PCTA(*NO)                                      
       MONMSG MSGID(IWS4010)                                 
       STRPCCMD   PCCMD('START C:\DOWNLOAD\EXCEL1.xls') +  
                    PAUSE(*NO)                               
 ENDPGM

By: cwc

cwc — Thu, 26 Jun 2008 21:56:22 +0000

How about recording a macro — does that semi-fit into what you’re wanting to do?

By: mblair.au

mblair.au — Thu, 26 Jun 2008 02:28:21 +0000

Hi everyone,

I am still looking for an answer to this question.
The above code does not answer my question at all. I am NOT looking how to copy file contents into Excel, and I am not looking for Delphi Code.

The Transfer Data from iSeries is an ADD-IN to Excel. This allows us to connect directly to the AS/400 and transfer data to populate directly into Excel.
I want to automate the add-in basically.
Can anyone help me?

Cheers,
Mike.

By: mblair.au

mblair.au — Mon, 23 Jun 2008 05:59:39 +0000

Hi guys,

Thanks for the answers, but both dont appear to be exactly what I am looking for.

I have an excel spreadsheet that has some VBA code to process the data that is populated by the Transfer from iSeries. The data is manipulated quite a bit inthe excel sheet, and then multiple files are created from this data and named according to some of the fields that are transferred.

So the current process is:
Log in to AS/400
Navigate to correct Menu
Enter details of data to extract using custom program
Log off AS/400
Open Excel Spreadsheet
Transfer data from iSeries
Click button on spreadsheet to process data

DONE.

It would be great if I can automate the transfer from iseries of data (not a file) within Excel.

So, if anyone has done any coding within VBA to replace the manual clicking etc of the Excel Add-in to transfer data that’s what I am after.

Open to other ways of doing this same task though…so all information greatly appreciated.

NOTE: I am NOT an AS/400 person…I know about Windows boxes…

Thanks team.

Cheers,
Mike.

By: cwc

cwc — Fri, 20 Jun 2008 18:13:54 +0000

Consider using the CPYTOIMPF command as well, where you can take a physical file and copy it to the IFS as an ASCII, comma separated variable file. Even though it wouldn’t be an .XLS formatted file, Excel can open it just fine and then it could be saved by the user as an .XLS later, if they desire.

If you want to transfer the file from the IFS to another server on your network, there are many ways to do this, including FTP, or mapping that network directory to the IFS, among others.

By: graybeard52

graybeard52 — Thu, 19 Jun 2008 21:30:13 +0000

My favorite options for doing this:

1. To start transfer from PC, use rxferpcb.exe (installed with iSeries Access)

2. To start transfer from iSeries, use CVTPFXLS (you can download from http://www.geocities.com/SiliconValley/Pines/5581/tips.htm

There are a number of other ways and pgms, but these are easy and free.