Power Builder - Exportar DW a Excel - Formato *.xlsx

   
Vista:

Exportar DW a Excel - Formato *.xlsx

Publicado por Beto (72 intervenciones) el 24/07/2015 17:30:26
Hola a todos, utilizo el PBD dw2xlsdemo_pb125_2511.pbd para exportar un DW a Excel, mi pregunta es si alguien utiliza este PBD y ha logrado exportar en formato *.xlsx sin tener ningún problema, ya que utilizo este codigo:

ls_Directorio = "D:\Prueba_Excel\PruebaExcel.xlsx"

uf_save_ds_as_excel(lds_Exporta, ls_Directorio)

Exporta el archivo con la extensión .xlsx pero al momento de abrir Excel me lanza este mensaje y no puedo ver nada:

Excel no puede abrir el archivo 'PruebaExcel.xlsx' porque el formato o la extensión de éste no son válidos. Compruebe que el archivo no se ha dañado y que la extensión del mismo coincide con el formato del archivo.

Espero me puedan ayudar

Saludos.
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

Exportar DW a Excel - Formato *.xlsx

Publicado por MARCOS (64 intervenciones) el 24/07/2015 17:57:51
mira este me sivio a mi
string ls_path,ls_archivoim
integer li_ret,i
long total
li_ret=GETFOLDER("ruta",ls_path)
if li_ret<1 then return
sle_camino.dirlist(ls_path+"\*.xlsx",0)
for i=1 to sle_camino.TotalItems ( )
ls_archivoim=sle_camino.text(i)
dw_1.importfile(ls_path+"\"+ls_archivoim,0)
total= sle_camino.totalitems()
//sle_total.text=String(total)
next
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

Exportar DW a Excel - Formato *.xlsx

Publicado por Beto (72 intervenciones) el 24/07/2015 18:58:55
Estimado Marcos utilizo el PBD dw2xlsdemo_pb125_2511.pbd porque me exporta Excel con el mismo formato en el que esta el DW, este PBD funciona muy bien exportando en formato *.xls pero necesito el formato *xlsx

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

Exportar DW a Excel - Formato *.xlsx

Publicado por Hugo QN (28 intervenciones) el 31/07/2015 21:03:25
hola Beto, yo uso esta sentencia para cambiar de formato claro esto es alternativa..
lo abro el archivo generado con extensión xls (libro1.xls) y lo agrego x y quedará así libro.xlsx

OleObject loo_documento

loo_documento.SaveAs(Lower(w_destino) + 'x', 51, '', '', FALSE, FALSE, 3, 2, TRUE)

luego el archivo original lo elimino

IF FileExists(w_destino) THEN FileDelete(w_destino)

espero te sirva.

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