Power Builder - Excel Exportar y pedir Donde guardar

   
Vista:

Excel Exportar y pedir Donde guardar

Publicado por Leysy (44 intervenciones) el 22/05/2008 23:57:29
Saludos, si alguien puede ayudarme con esto por favor.
Tengo un Dw y quiero exportarlo a excel, tengo y me sirve el siguiente codigo pero colocarlo que pida al usuario el nombre del archivo.... :( pero q lo guarde con esta sentencia:
dw_vista.saveas(ls_path_excel,HTMLTable!, TRUE) porque asi es q me lo guarda completo

STRING ls_path_excel
ls_path_excel ="C:Archivo.XLS" //Se asigna el nombre del archivo

dw_1.saveas(ls_path_excel,HTMLTable!, TRUE)

Entonces como hago para usar esta misma sentencia pero que le pida al usuario el nombre del archivo a guardar, como cuando se dice "guardar como" pero q solo sea en excel q lo deje hguardar sin otras extensiones.

gracias quien pueda ayuarme :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Excel Exportar y pedir Donde guardar

Publicado por Jorge Escobar (110 intervenciones) el 23/05/2008 05:19:25
en un evento de control datawindow.

String ls_path, ls_file, ls_ext
string ls_null
SetNull(ls_null)
Integer li_value
/*
li_value = GetFileSaveName("Guardar Como...",ls_path, ls_file,"DOC","Archivo Excel (*.xls),*.xls," + &
"Archivo de Texto (*.txt),*.txt," + &
"Archivo HTML (*.htm),*.htm," + &
"PDF (*.pdf),*.pdf")
*/
li_value = GetFileSaveName("Guardar Como...",ls_path, ls_file,"DOC","Archivo Excel (*.xls),*.xls")
// comprueva si el se ha seleccionado guardar
If li_value <> 1 Then
return -1
Else
// obiene la extención del archivo
ls_ext = lower(right(ls_file,3))
CHOOSE CASE Lower(ls_ext)
CASE "xls"
this.SaveAs(ls_path,HTMLTable!,True)
CASE "txt"
this.SaveAs(ls_path,Text!,True)
CASE "htm"
this.SaveAs(ls_path,HTMLTable!,True)
CASE "pdf"
this.SaveAs(ls_path,PDF!,True)
CASE ELSE
MessageBox("Error al Grabar","La extensión no es válida",Exclamation!)
END CHOOSE
End If
/*
SetNull(ls_null)
If Lower(f_getRegister("Configuration","ExecuteFileExport","false")) = 'true' Then
ShellExecuteA(Handle(this), ls_null, ls_path, ls_null,ls_null, 1)
End If
ChangeDirectory(gnv_application.of_GetCurrentDirectory())
*/

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Excel Exportar y pedir Donde guardar

Publicado por Marcel (1 intervención) el 01/06/2008 22:39:39
ESPERO Y TE SIRVA...

int li_rc, li_confir
string ls_path
string ls_file

li_rc = getfilesavename ( 'Guardar como', ls_path, ls_file, 'XLS', 'XLS Files (*.XLS), *.XLS')

if li_rc = 1 then
li_confir=this.dw_listado.SaveAs( ""+ls_path+""+ls_file+"", Excel!, true )

if li_confir= 1 then
messagebox( "Excel", "Se Exportó Satisfactoriamente" )
end if
else
messagebox( "Error", "No se pudo exportar", Exclamation! )
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar