SoloCodigo

Programación General => Power Builder => Mensaje iniciado por: lissi14 en Jueves 8 de Junio de 2006, 00:11

Título: Datawindow Composite
Publicado por: lissi14 en Jueves 8 de Junio de 2006, 00:11
tengo un datawindows composite y quiero exportar los datos a excel he intentado con

try
      Integer li_ret, li_currow,li_fh
      int li_rtn
      String ls_named,ls_txtname,ls_cod_generacion,ls_ley1
      String ls_defext = "xls"
      String ls_filtro = "Archivo de Excel(*.xls),*.xls"
      li_ret = GetFileSaveName("Guardar Achivo",ls_txtname,ls_named,ls_defext,ls_filtro)
      dw_info.SaveAs(ls_txtname, excel!, true)
   
      oleobject  excel
      excel = create OLEObject
      li_rtn = excel.ConnectToNewObject("excel.application")
      IF li_rtn <> 0 THEN
         MessageBox('Excel error','No puede conectarse a Excel')
         DESTROY excel
         RETURN 0
      END IF
      
      excel.WorkBooks.Open(ls_txtname)
      excel.Application.Visible = true
      excel.windowstate = 3 // 1 : Normal, 2 : Minimize, 3 : Maximize
   catch ( exception e )
      MessageBox ( "Error", e.GetMessage() )
   finally
   Destroy excel  
end try

pero sale me aparece en el archivo de excel la letra a
porque como puedo hacer ????????
es urgente graxias !!!!!