nombre de los campos de un curso a excel

[circulocatoli...@gmail.com]

Hola Gente, mi pregunta es la siguiente ... al exportar del cursor a excel me pone los nombre de los campos en el archivo excel.. como se hace para que ese no ocurra , muchas gracias a todos...

[HernanCano]

Muestra cómo lo estás haciendo y te decimos qué es lo q se deba (1) corregir, o (2) mejorar para tu necesidad.

[circulocatoli...@gmail.com]

MUCHAS GRACIAS 

ASI LO HAGO

CREATE CURSOR asiento (a c(4),b C(10),c c(10),d n(10),e c(50),f c(10),g n(11),h c(50),i n(10),j n(15,2),k n(15,2),l n(10))

Lo lleno con datos

 COPY TO asiento XL5 

[Zarlu]

Buenas tardes  circulocatolicodeobreroscdu!

1.- Exportando con automatización.

2.- Usando _Cliptext

USE ?
cTmp = Getenv("TEMP")+"" + Sys(2015) + ".Tmp"
Copy To (cTmp) Delimited With Tab
_Cliptext = Filetostr(cTmp)
oExcel= Createobject("Excel.Application")
With oExcel
.DisplayAlerts = .F.
.Workbooks.Add()
.Range("A1").PasteSpecial
EndWith
oExcel.Workbooks(1).SaveAs("c:\temp\prueba.xls")
oExcel.Quit
oExcel= .Null.
Release oExcel

3.- Usando  COPY  TO y una vez creado el Excel eliminando el primer renglón con automatización.

Suerte

zarlu

Chetumal, Quintana Roo, México

[Jamaliel]

Mas abajo está un link con todo lo que reuní sobre el tema  por años. Hoy estoy retirado, voy camino a los 80, y lo envío para que buenos aportes no se pierdan. Programé hasta seis años atrás.

https://www.mediafire.com/file/2xyvu140rnigowg/VFP_a_Excel_y_viceversa.rar/file

Un abrazo afectuoso.

[Octavio Rodriguez]

"...voy camino a los 80..."

Saldos y un fuerte abrazo Jamaliel, mis mas sinceros respetos a la vieja guardia !!! 

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/92c3fb74-984b-49de-9a91-325b94ba15f8n%40googlegroups.com.

[Remberto Infante Campos]

DISCULPE, SU ESCUDO SON UNAS AGUILAS EN SOUTER?

--

[circulocatoli...@gmail.com]

hola. me pone el formato mal por mas que le ponga set date french, set century on

como hago amigo?

[Zarlu]

Buenos días  circulocatolicodeobreroscdu!

Ayudaría ver como está tu tabla, como se pasa a excel, como lo estás pasando y como lo deseas

Suerte

zarlu

Chetumal, Quintana Roo, México

[circulocatoli...@gmail.com]

SELECT asiento

cTmp = Getenv("TEMP")+"" + Sys(2015) + ".Tmp"
Copy To (cTmp) Delimited With Tab
_Cliptext = Filetostr(cTmp)
oExcel= Createobject("Excel.Application")
With oExcel
.DisplayAlerts = .F.
.Workbooks.Add()
.Range("A1").PasteSpecial
EndWith

oExcel.Workbooks(1).SaveAs("c:\importarAsientos\&nombredearchivo")

oExcel.Quit
oExcel= .Null.
Release oExcel

ese ejemplo, me funciona pero a las mechas las pones como mes/dia/año,y yo quiero dia/mes/año

le puse set century on pero no lo toma...

[circulocatoli...@gmail.com]

Gracias de nuevo, pero me podes decir como hago para cambiar el formato de la celda, la celda b tiene dormato

de fecha mes/dia/año, yo quiero dia/mes/año, como se hace?

[Zarlu]

Qué tal circulocatolicodeobreroscdu!

Ayudaría ver como están los registros en tu tabla antes de la exportación.

Intenta cambiar temporalmente el formato de fecha

lcSetDate=Set("Date")

lcSetCentury=Set("Century")

Set Date French

Set Century On

*-Aqui haces la exportación

Set Date ( lcSetDate )

Set Century ( lcSetCentury )

Si esto no funciona entonces deberás probar por automatización cambiar el formato de las celdas/columnas destino en Excel.

Suerte

zarlu

Chetumal, Quintana Roo, México

[circulocatoli...@gmail.com]

muchas gracias, el campo " b" por ejemplo es carácter ahi guarde la fecha 02/08/2025 cuando lo exporto a excel lo pone 08/02/2025

no se porque? pero si le guardo ase " 2/ 8/2025" lo hace bien...gracias... 
igual mente voy a probar todo lo que  me pasan....

[Jose Antonio Blasco]

Prueba lo siguiente:

With oExcel
.DisplayAlerts = .F.
.Workbooks.Add()
.Range("A1").PasteSpecial

    *
    * Si la columna de la fecha es la B
    *
    .Columns("B:B")
    .NumberFormat = "dd/mm/yyyy"

EndWith

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/81be3e28-4786-4835-a359-7d7a0333fadbn%40googlegroups.com.

[Jose Antonio Blasco]

Corrijo: 

With oExcel
.DisplayAlerts = .F.
.Workbooks.Add()
.Range("A1").PasteSpecial
    *
    * Si la columna de la fecha es la B
    *

    .Columns("B:B").NumberFormat = "dd/mm/yyyy"

EndWith

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

[Hernán Medina]

Gracias  Jamaliel por tus aportes... Grande ¡¡¡

[Zarlu]

Buenas tardes circulocatolicodeobreroscdu!

Esto no sera un dato tipo fecha al pasarlo a Excel.

"...si le guardo ase " 2/ 8/2025" lo hace bien..."  

Lo ideal sería que el campo de la tabla fuera tipo fecha

O bien crear un cursor que convierta el dato a tipo fecha configurando Set Date para la consulta y para la exportación a Excel

lcSetDate=SET("Date")

SET DATE French
SELECT CTOD(b) as mifecha FROM asiento INTO CURSOR sqltempo

SELECT sqltempo
SET DATE american

* aquí se exporta a Excel

Set Date ( lcSetDate )

Pero no te complico....agrega esta línea justo antes de pegar y ajustando a la columna del problema

...

With oExcel
.DisplayAlerts = .F.
.Workbooks.Add()

.Columns("A:A").NumberFormat ="@"&&texto. ajusta a la columna deseada

.Range("A1").PasteSpecial
EndWith

...

Suerte

zarlu

Chetumal, Quintana Roo, México

[circulocatoli...@gmail.com]

Muchas Gracias, gracias a ustedes pude resolver el problema.

[Claudio Segretin]

¿Como están configurados los formatos en el Excel donde verificas la exportación?

Claudio E. Segretin

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/232efdfb-7c6b-4bfd-9871-e5d796e05af5n%40googlegroups.com.