Power Builder - Exportar a Excel toda una DW

Hola, tengo una datawindow que es un reporte muy complejo con muchos campos calculados. Deseo poder exportarlos a excel, pero al hacerlo solo me exporta los campos reales y no los computados. Como Puedo implementar una funcion que exporte los datos de una dw manteniendo todos los campos de la misma?
Gracias

Mira creo que poder probar esto..:

dw.X = 0
dw.Y = 0
dw.Width = Parent.Width
dw.Height = Parent.Height

esto hace que el dw, ocupe toda la ventana sobre la cual esta puesta...

Espero te sirva de algo

Ejemplo: La DW tiene el campo a,b,c y los computados d, e y f
Si hacemos la exportacion a Excel con
dw.SaveAs(Excel!)
me graba el contenido de los campos a,b y c y me obvia los otros campos (d,e,f). Yo necesito que los grabe todos. Si se puede con el formato original mejor sino aunque sea algo parecido a la grilla
Saludos

No sé si probaste con SaveAsAscii en vez de SaveAs. Explica sus ventajas en:

http://www.justpbinfo.com/techdocs/savetoexcel.asp

Según ese artículo, cuando usas SaveAs para exportar a Excel, existen problemas cuando el DW posee grupos, crosstabs y computed fields. Cosa que no sucede cuando se usa SaveAsAscii.

Ciertamente con el método SaveAsAscii mejora sin embargo los valores computados no los coloca en la misma altura que corresponde. vale decir que los corre en otra columna del excel.

Si los campos computados los estas definiendo en el datawindows vas a tener muchos problemas para grabarlos con SaveAs ya que lo que te graba el SaveAs es la estructura del Query Select, osea que si quieres que te grabe algun campo computado este necesitas definirlo desde que haces el select query.

te paso la siguiente rutina, pegasela a un boton y ese va a ejecutar la exportacion a excel de un datawindow.

saludos desde monterrey mexico: (si sirve esta probada)

setpointer(hourglass!)
w_principal.setmicrohelp("Exportando archivo a formato Excel...")
string ls_path
string ls_file
oleobject luo_excel


if getfilesavename ( 'Archivos',&
ls_path,ls_file,&
'XLS',&
'XLS Files (*.XLS), *.XLS') = 1 then

if dw_resultados.saveas(ls_path,HTMLTable!,true) = 1 then <----- 'aqui va el datawindow donde se aloja el resultado es todo lo que hay que cambiar'
luo_excel = create oleobject
if luo_excel.connecttoobject(ls_path) = 0 then
luo_excel.application.displayalerts = false
luo_excel.application.workbooks(1).parent.windows(luo_excel.application.workbooks(1).name).visible = true
luo_excel.application.workbooks(1).saveas(ls_path,-4143)
luo_excel.application.workbooks(1).close()
luo_excel.disconnectobject()
end if
destroy luo_excel
end if
end if
setpointer(arrow!)
w_principal.setmicrohelp("Listo...")

// esto suponiendo que mi dw se llama dw_resultados y mi ventana donde esta mi dw se llama w_principal, tu ajustala o como se llame la tuya, suerte y si tienes problemas dime cuales ,

Bien k estuvo de pelos
no se quien pregunto esto pero a mi me a funcionado excelente

Mis respetos
y otra vez gracias

Excelente este articulo, justo lo que yo necesitaba.

Muchas gracias por la ayuda.

Cual es la respuesta correcta...me interesa este articulo
Gracias

puse en practica este codigo y cuando lo invoco en boton de ventana me sale errror en el saveas del workbook, si lo pongo en funcion de usuario, ya no , pero no me exportael campo calculado

Excelente!... gracias!

Estimado, genial el aporte, te felicito me ayudó a solucionar mi problema.

Muy buena rutina, me sirvió!

Gracias!