On 6/17/10, frank van der Zwaag <[email protected]> wrote:

> does anybody have a sample EEP script that I can use to export the data
> from a view into an xls spreadsheet using a pre-defined export format
> (rgw) file.

Hello Frank,

It was good to see you in Wellington. Hope you enjoyed the R:BASE
eXtreme 9.0 presentation. I am also looking forward to seeing you
at the special presentation for New Zealand Law Enforcement Agency
in Auckland on Tuesday.

Here is an example to EXPORT data as XLS spreadsheet using R:BASE
GATEWAY File Specification (.rgw) file:

-- Start here ...
-- Generate_XLS_Spreadsheet.RMD
-- A. Razzak Memon
-- Database: RRBYW16
-- Specification File Name: Customer.rgw
-- Pre-Define All Global Variables
   SET VARIABLE vPauseMessage TEXT = NULL
   SET VARIABLE vCheckExtension TEXT = NULL
-- Display Progress Message
   CLS
   SET VAR vPauseMessage = +
   ((CHAR(013))+' Now Preparing XLS Spreadsheet ... Please Wait')
   CLS
   PAUSE 3 USING .vPauseMessage +
   CAPTION ' Generate XLS Spreadsheet' +
   ICON INFO +
   OPTION MESSAGE_FONT_NAME Tahoma +
   |MESSAGE_FONT_COLOR RED +
   |MESSAGE_FONT_SIZE 10 +
   |THEMENAME Vista CG
-- Delete previously created Customer.xls or Customer.xlsx, if any
   SET ERROR MESSAGE 2077 OFF
   DELETE Customer.xls
   DELETE Customer.xlsx
   SET ERROR MESSAGE 2077 ON
-- Find the default file extension/version of MS Excel installed
-- .xlsx for MS Office Excel 2007
   PLUGIN RRegistry 'vCheckExtension|CHECK_KEY|HKCR|.xlsx|'
IF vCheckExtension = 'TRUE' THEN
   -- Create XLSX Worksheet for MS Excel 2007
   GATEWAY EXPORT XLSW Customer.XLSX +
   SELECT * FROM Customer ORDER BY Company +
   OPTION SPECIFICATION_FILE_NAME Customer.rgw +
   |SHEET_NAME Customers +
   |ACTION OPENVIEW
ELSE
   -- Create XLS Worksheet for older MS Excel
   GATEWAY EXPORT XLSW Customer.XLS +
   SELECT * FROM Customer ORDER BY Company +
   OPTION SPECIFICATION_FILE_NAME Customer.rgw +
   |SHEET_NAME Customers +
   |ACTION OPENVIEW
ENDIF
CLS
CLEAR VARIABLES vPauseMessage,vCheckExtension
RETURN
-- End here ...

Have fun!

Very Best R:egards,

Razzak.


Reply via email to