RE:Exportar a Excel toda una DW
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 ,