FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Se pueden combinar celdas al exportar a Excel con TOleAuto?
jrestojeda
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Thu May 06, 2010 06:40 PM
Hola a todos...
Estoy intentando agrupar celdas con TOleAuto y no se como hacerlo...
Si alguien sabe si se puede y me puede decir como, estaré agradecido.

Asi es como me queda al exportar a Excel:


Así es como lo quiero:


Desde ya muchas gracias.
Saludos, Esteban.
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 05:34 AM


Code (fw): Select all Collapse
#include "Fivewin.ch"

#DEFINE  xlCenter  -4108

//----------------------------------//
Function Main()
    
    Local oExcel,oWorkBook,oSheet,oRange,i,cFileName:="D:\FwhTests\MyTest"

    oExcel := CREATEOBJECT( "Excel.Application" )
    OEXCEL:DISPLAYALERTS=.F.
    oWorkBook := oExcel:WorkBooks:Add()
    oSheet := oExcel:ActiveSheet
    
        // Main Heading
    oSheet:Cells(1,1):Value:="My Heading"  
    
       // Column Headings
    oSheet:Cells( 2, 1 ):Value = "Date"
    oSheet:Cells( 2, 2 ):Value = "Number"
    oSheet:Cells( 2, 3 ):Value = "Description"
    oSheet:Cells( 2, 4 ):Value = "Amount"
    
        // Creating Dummy Data
    For i:=3 to 10
        oSheet:Cells(i,1):Value=Date()
        oSheet:Cells(i,2):Value=i
        oSheet:Cells(i,3):Value="Description "+str(i,2)
        oSheet:Cells(i,4):Value=i*10
    Next
        
        // Trying to Merge cells for the Main Heading
    oRange:=oSheet:Range("A1:D1")
    oRange:MergeCells:= .T.
    oRange:HorizontalAlignment:= xlCenter

        // Save the File
    oWorkbook:SaveAs( cFileName )
    
    oExcel:Quit()
    oExcel:=NIL

Return NIL


Regards
Anser
groiss
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 06:38 AM

Anser, me parece interesantísimo lo que se puede hacer en tablas excel, podrías indicarme donde obtener información sobre los diferentes valores y funciones que se pueden utilizar?.
Muchas gracias y un saludo

José Luis

anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 08:06 AM

Dear Mr.José Luis,

The best way to learn is to record a macro and then do the required tasks in excels. Once you have done the task, stop the recording and use the edit macro option to view the generated VB code. After that you can easily convert the VB script code to FWH. :)

Regards
Anser

mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 11:28 AM
Hola Esteban y Amigos:
jrestojeda wrote:Estoy intentando agrupar celdas con TOleAuto y no se como hacerlo...
Si alguien sabe si se puede y me puede decir como, estaré agradecido.

Aquí te muestro solamente otra forma para conseguir lo que mencionas:

#define xlHAlignCenterAcrossSelection 7
oSheet:Range( "A1:E1" ):HorizontalAlignment := xlHAlignCenterAcrossSelection

Para analizar los métodos de Excel en la forma que Anser tan atinadamente sugiere, es necesario conocer las constantes usadas por dichos métodos, aquí les pongo un link donde pueden descargar una relación de todas (eso creo) las constantes usadas en los métodos y variables de los objetos de Excel:

http://www.box.net/shared/kc0s5a81il

Un abrazo.

Manuel Mercado Gómez
manuelmercado at prodigy dot net dot mx
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 12:19 PM

Gracias Distinguidos

Cómo se hace para dar un ancho específico a la columna y poner Bold al texto.

Saludos

Adhemar

Saludos,



Adhemar C.
jrestojeda
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 01:08 PM

Muchas gracias a ambos por las respuestas.
Finalimente pude solucionar el problema.
Saludos, Esteban.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
jrestojeda
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 02:22 PM
Adhemar...

Code (fw): Select all Collapse
oHoja:Cells( TuCelda ):Font:Bold := .T.


Saludos, Esteban.
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 03:37 PM

Gracias Esteban

Y para dar el ancho a la columna

Saludos

Adhemar

Saludos,



Adhemar C.
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Fri May 07, 2010 11:42 PM
Hola Adhemar:
acuellar wrote:Y para dar el ancho a la columna

Un ejemplo modificando el ancho de la columna 3:

oSheet:Columns( 3 ):ColumnWidth := 28

El valor asignado será el número de caracteres desplegables tomando como base la fuente standard.

Un abrazo.

Manuel Mercado Gómez.
manuelmercado at prodigy dot net dot mx
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Mon May 10, 2010 01:20 PM

Gracias Manuel

Funcionó perfecto

Saludos

Adhemar

Saludos,



Adhemar C.
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Mon Mar 19, 2012 03:05 PM

Estimados;
retomo este post porque necesito asignar a celdas numéricas su "picture"
tambien establecer una cabecera textual con alineación derecha

muchas gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Wed Mar 21, 2012 07:29 AM
To format Numbers

Code (fw): Select all Collapse
oSheet:Cells(i,4):NumberFormat = "$#,##0.00"


To Right Align the header

Code (fw): Select all Collapse
#DEFINE  xlRight -4152

oSheet:Cells( 2, 4 ):Value = "Amount"
oSheet:Cells( 2, 4 ):HorizontalAlignment:=xlRight


Anser
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Se pueden combinar celdas al exportar a Excel con TOleAuto?
Posted: Wed Mar 21, 2012 11:12 AM

muchas gracias!

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion

Static archive · New replies & topics via GitHub Discussions