RE:Exportar datos de un dw a Excel
Hola
Mira,,
Codigo extraido de http://powerbuilder.codexchange.sybase.com/
alli esta el ejemplo
Bruce. Armstrong
UIna opcion "mas casera" guardas con saveas y se lo
dejas abierto con un run.
Run("C:\Temp.xls")
Saludos y Suerte
oleobject myoleobject
integer rc, i, count, j, colcount
datastore mydatastore
string mydata, colname, colnames
mydatastore = CREATE datastore
myoleobject = CREATE oleobject
rc = myoleobject.ConnectToNewObject ( "Excel.Application" )
IF rc <> 0 THEN
MessageBox ( "Error", String ( rc ) )
Return
END IF
try
myoleobject.Application.Visible = TRUE
myoleobject.Workbooks.Add()
count = myoleobject.ActiveWorkbook.Sheets.Count
for i = 1 to count
CHOOSE CASE i
CASE 1
mydatastore.DataObject = 'd_customer'
CASE 2
mydatastore.DataObject = 'd_dept'
CASE 3
mydatastore.DataObject = 'd_employee'
END CHOOSE
colcount = Integer ( mydatastore.object.DataWindow.column.count )
FOR j = 1 TO colcount
colname = mydatastore.Describe ( "#" + String ( j ) + ".Name" )
CHOOSE CASE j
CASE 1
colnames = colname
CASE ELSE
colnames = colnames + '~t' + colname
END CHOOSE
NEXT
colnames = colnames + "~r~n"
mydata = mydatastore.Object.DataWindow.Data
ClipBoard ( colnames + mydata )
myoleobject.ActiveWorkbook.Sheets(i).Paste()
next
myoleobject.DisconnectObject()
catch ( exception e )
MessageBox ( "Error", e.GetMessage() )
finally
Destroy myoleobject
end try