FoxPro/Visual FoxPro - Datos a excel !! URGENTE !!

 
Vista:

Datos a excel !! URGENTE !!

Publicado por Petronio (311 intervenciones) el 16/10/2007 02:44:09
Desde mi aplicacion hecha en VFP exporto a excel con el commando EXPORT. La planilla se genera, pero uno de los campos que es de fecha deja en la hoja excel la columna como "01-Aug-07". Necesito que la deje con formato de fecha tipo dd-mm-yy.
He probado con:
Set date to British
Set date to French
Set Century ON
Set Century Off
etc., pero no resulta

¿DEBERE MODIFICAR ?

Por favor es urgente.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Datos a excel !! URGENTE !!

Publicado por enrique (1041 intervenciones) el 16/10/2007 14:15:05
el problema puede estar en :
1. el formato de fecha del Excel
2. en la configuración regional de Windows que afecta a Excel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ya lo probe...!! NO FUNCIONA !!

Publicado por Petronio (2 intervenciones) el 17/10/2007 15:32:32
El problema esta a nivel de mi aplicacion. Algo me falta o está seteada erroneamente la fecha, pues si yo exporto el mismo archivo desde el ambiente VFP la fecha queda correctamente (17/10/2007) en circunstancias que cuando corre el programa y efectúo la exportacion me da 17-Oct-2007.
Por lo cual quedan descartadas las opciones

Formato de fecha del Excel
Configuración regional de Windows

En mi aplicacion tengo:
Set date to British
Set Cetury On

Desde ya agradezco vuestra ayuda,

PETRONIO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ya lo probe...!! NO FUNCIONA !!

Publicado por carlos tantachuco (10 intervenciones) el 20/10/2007 15:34:43
Hola recien lei tu apuro te comento que yo tengo una palicación que migra tooodos los datos a excel utilizando SQL es genial, justo ayer 19/10/2007 termine el modulo que migra datos a excel el lunes 22/10/2007 pondre el codigo y una explicación de como funciona. disculpas si hoy no lo mando esque no estoy en mi oficina y no tengo acceso a mi codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Datos a excel !! URGENTE !!

Publicado por Carlos Tantachuco (10 intervenciones) el 22/10/2007 20:18:37
Hola te envio el codigo para poder llevar datos a excel, cual quier duda puedes enviarme a mi correo, aa por sia caso sor de BOLIVIA.

Thisform.Label1.Visible=.T.
LOCAL i,j,TrendFunc,xlsheet,XLApp,tmpsheet

** EN ESTA PARTE MEDIANTE SQL BUSCO LOSA CAMPOS QUE QUIERO Y DEACUERDO A UNA CONDICION SI ASI LO QUIERES, Y LO GUARDO EN UN ARRAY

Select Codigo,detalle,Saldoea,saldoep,saldoec from c:\martini\total;
Into Array ArrSalesdata
OleApp=CREATEOBJECT("Excel.Application")
OleApp.WorkBooks.Add
OleApp.Cells(1,1).Value = "CODIGO"
Oleapp.Cells(1,1).font.bold=.T.
oleapp.Cells(1,1).font.size="12"
oleapp.Cells(1,1).font.name="Arial"

OleApp.Cells(1,2).Value = "DETALLE"
Oleapp.Cells(1,2).font.bold=.T.
oleapp.Cells(1,2).font.size="12"
oleapp.Cells(1,2).font.name="Arial"

OleApp.Cells(1,3).Value = "ANTERIOR"
Oleapp.Cells(1,3).font.bold=.T.
oleapp.Cells(1,3).font.size="12"
oleapp.Cells(1,3).font.name="Arial"

OleApp.Cells(1,4).Value = "PERIODO"
Oleapp.Cells(1,4).font.bold=.T.
oleapp.Cells(1,4).font.size="12"
oleapp.Cells(1,4).font.name="Arial"

OleApp.Cells(1,5).Value = "ACTUAL"
Oleapp.Cells(1,5).font.bold=.T.
oleapp.Cells(1,5).font.size="12"
oleapp.Cells(1,5).font.name="Arial"

*** HASTA QUI SOLAMENTE PUSE LOS TITULOS

*** ESTE FOR ES EL QUE DESCARGA LA INFORMACION EL VALOR _TALLY ES **LA CANTIDAD DE REGISTROS DE MI COLSULTA
** EL FOR J TIENE UN VALOR DE 5 QUE ES EL NUMERO DE TITULOS QUE ***COLOCARE COMO PUEDES VER EN MI CASO ES 5 `PUEDE SER 10 11 O LO **QUE NECESITES CAMBIAS ARRIBA Y TAMBIEN EN ESTE FOR
FOR i = 1 to _TALLY
FOR j = 1 to 5
OleApp.Cells(i+1,j).Value =arrSalesData(i,j)
ENDFOR
ENDFOR
OleApp.Visible=.T.
*** LISTO TODO UNA BELLEZA***
SALUDOS ESPERO TE SEA UTIL
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar