• Viernes 19 de Abril de 2024, 18:34

Autor Tema:  Datawindow Composite  (Leído 2639 veces)

lissi14

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Datawindow Composite
« en: Jueves 8 de Junio de 2006, 00:11 »
0
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 !!!!!