Using OLE automation in PowerBuilder 6.x, 7.x and 8.x you can copy data from a datawindow to an Excel 8, Excel 97 or Excel 2000 spreadsheet much faster than with previous versions of PB. There is also a sample application available for download that will copy all columns and rows to a MS Excel spreadsheet. www.chinai tp ow er.comkijb4hK

The sample copies Datawindow Row 1 ,Column 1 to MS Excel Row 1 , Column 1 etc.... www.chinai tp ow er.comkijb4hK

The script can be modified to copy only the desired columns/rows. www.chinai tp ow er.comkijb4hK

A template xls file could be opened and saved to a different xls filename, preserving the template. www.chinai tp ow er.comkijb4hK

Uncomment the Save or SaveAs lines accordingly. www.chinai tp ow er.comkijb4hK

The sample pbl provided uses the EAS DEMO DB's Employee table.
47867.zip is an sample PBL for techdoc 47867 "Copying Datawindow data to Microsoft Excel using OLE Automation" www.chinai tp ow er.comkijb4hK

The following script code is located in the "Copy DW Data to Excel using OLE Automation"
button , on the only window in the pbl. The example pbl is currently setup to open the file "c:\file1.xls" www.chinai tp ow er.comkijb4hK

Modify the path/filename or create file1.xls in the c:\ directory. The file can be an empty xls file.
  www.chinai tp ow er.comkijb4hK

long numcols , numrows , c, r
OLEObject xlapp , xlsub
int ret www.chinai tp ow er.comkijb4hK

// Set the # of columns and rows to process
// Currently Set to copy the entire DW www.chinai tp ow er.comkijb4hK

numcols = long(dw_1.Object.DataWindow.Column.Count)
numrows = dw_1.RowCount() www.chinai tp ow er.comkijb4hK

// Create the oleobject variable xlapp
xlApp = Create OLEObject www.chinai tp ow er.comkijb4hK

// Connect to Excel and check the return code
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if www.chinai tp ow er.comkijb4hK

// Open a particular Excel file
xlApp.Application.Workbooks.Open("c:\file1.xls") //,false,true
// Make Excel visible
xlApp.Application.Visible = true www.chinai tp ow er.comkijb4hK

// Resolve the Excel reference once
// This technique shortens the script and improves performance
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1] www.chinai tp ow er.comkijb4hK

// Loop thru the Datawindow and Excel sheet
// The for/next loop copies all rows for each column
For c = 1 to numcols
For r = 1 to numrows
xlsub.cells[r,c] = dw_1.object.data[r,c] www.chinai tp ow er.comkijb4hK

Next
Next www.chinai tp ow er.comkijb4hK

// Save opened file
//xlApp.Application.Activeworkbook.Save() www.chinai tp ow er.comkijb4hK

// SaveAs a different filename
//xlApp.Application.Activeworkbook.SaveAs("c:\file2.xls") www.chinai tp ow er.comkijb4hK

// clean up
xlApp.DisConnectObject()
Destroy xlappwww.chinai tp ow er.comkijb4hK