topic-28538

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

ficheros excel (SOLUCIONADO)
Posted: Thu May 29, 2014 06:58 PM

Hola, estoy reprogramando el modulo de exportación a excel que tengo en una aplicación y me encuentro que al generar el fichero las letras con acento no ven correctamente en la hoja de calculo. ¿Alguien me podría indicar que hago mal?

gracias

Code (fw): Select all Collapse

function pruebaxls()
local oExcel, oBook, oSheet, oRange


oExcel := CreateObject( "excel.application" )
oBook  := oExcel:Workbooks:Add()
oSheet := oBook:Worksheets( 1 )
oSheet:Cells( 1,1 ):Value = "Listado General de Articulos (España)"
oRange:=oSheet:Range("A1:E1")
oRange:MergeCells:= .T.
oRange:HorizontalAlignment:= xlCenter

oSheet:Range( "A3" ):Value = "Código"
oSheet:Range( "B3" ):Value = "Descripción"
oSheet:Range( "C3" ):Value = "Fecha U.C."
oSheet:Range( "D3" ):Value = "P.U.C."
oSheet:Range( "E3" ):Value = "Importe"

oSheet:Columns(2):ColumnWidth := 20
oExcel:Visible := .T.
oExcel := NIL
RETURN NIL

En la salida que obtengo
Las eñes las las pone como +- Listado General de Articulos (Espa±a)
etc.

miarcod

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

Re: ficheros excel (SOLUCIONADO)
Posted: Fri May 30, 2014 01:15 PM

Alguna sugerencia????

miarcod

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

Re: ficheros excel
Posted: Fri May 30, 2014 05:53 PM

Perdón por la insistencia, es que llevo todo el día buscando información sobre el tema y no consigo encontrar nada.

El caso es que he probado el metodo ToExcell de la clase xbrowse con los mismos resultados.

Ahora ya no se si es algún problema de configuración mio

¿Alguien me podría confirmar si al exportar a exel le pasa lo mismo?

No consigo obtener ni las eñes ni las letras acentudas, mayusculas y minusculas

He probado tanto excel 2003 como excel 2013 con los mismos resultados

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: ficheros excel
Posted: Fri May 30, 2014 06:26 PM

Tiene que ser algún problema de tu configuración regional.
Acabo de probar a exportar desde el ejemplo testxbr3 con acentos, eñe, ç y sin problemas.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Hector Pedro Lerda

Posts: 46

Joined: Tue May 07, 2013 07:27 PM

Re: ficheros excel
Posted: Fri May 30, 2014 06:29 PM

Miarcod buenas tardes

Prueba con

OemToAnsi()

Translates a OEM MsDos string into a Windows string

Syntax:

OemToAnsi( <cOemText> ) --> cWindowText
Parameters:
<cOemText> A OEM MsDOs string to be converted into a Windows string.
Returns:
<cWindowText> The result Windows string.

Observations:
Normally all the data that you capture from MsDos into a DBF is stored as OEM text. In this situation you may call OemToAnsi() to properly review it from inside Windows.
Text that is captured from Windows is in Ansi format. To use it from MsDos later, store it as the result of AnsiToOem().

Source Code:

SOURCE\WINAPI\OemAnsi.c

Saludos Pedro Lerda

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: ficheros excel
Posted: Fri May 30, 2014 06:35 PM

Por si te sirve de algo, con ToExcell de xBrowse exporta perfectamente tanto acentos como ñ,Ñ.
(FWH 12.4 y winXP)

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

miarcod

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

Re: ficheros excel
Posted: Fri May 30, 2014 07:36 PM

gracias por responder

Pues a mi testxbr3 no me funciona correctamente

Si exporto desde la opción array del ejemplo es cuando se produce el problema.

¿Alguna idea?

un saludo

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: ficheros excel
Posted: Fri May 30, 2014 07:55 PM

a cuestión,

que editor usas para crear tu código?

puedes abrir tu TEST.PRG en el NOTEPAD

eliminar la línea y volver a escribir , guardas y compilas,

yo me voy mas por la configuración de tu editor de prgs.

saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

miarcod

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

Re: ficheros excel
Posted: Mon Jun 02, 2014 05:02 PM

Bueno, después de mucho investigar he conseguido solucionarlo pasando los datos por el portapapeles.
¿¿¿¿¿¿¿¿¿¿?????????????

Code (fw): Select all Collapse

oExcel := CreateObject( "excel.application" )
oBook  := oExcel:Workbooks:Add()
oSheet := oBook:Worksheets( 1 )

nVersion := oExcel:Version
#define  xlCenter               -4108
#define  xlRight                -4152
#define  xlHAlignCenterAcrossSelection  7


    oExcel:Visible = .T.
    oSheet:Cells(1, 1):Value = "Listado General de Artículos (España)"

    oClip := TClipBoard():New( )
    cText := "Listado General de Artículos (España)"
    oClip:SetText( cText )
    oSheet:Cells( 2, 1 ):Select()
    oSheet:Paste()
    oClip:Clear()
    oClip:End()

y esto es lo que obtengo en la hoja de cálculo

A1 Listado General de Artφculos (Espa±a)
B1 Listado General de Artículos (España)

miarcod

Posts: 203

Joined: Tue Oct 11, 2005 02:17 PM

Re: ficheros excel
Posted: Mon Jun 09, 2014 11:26 AM

Por si a alguien le puede interesar..

Al final se solucionó con la selección de la página de códigos con la que funciona harbour

Code (fw): Select all Collapse

REQUEST HB_CODEPAGE_ESWIN

FUNCTION main()
HB_SetCodePage("ESWIN")
....

Gracias a todos

FiveTech Support Forums

Continue the discussion