Usa la siguiente rutina, deberas de crear la tabla o cursor previamente
Saludos
Hernan E. Delgado
loExcel = CREATEOBJECT("Excel.Application")
WITH loExcel.Application
.Visible = .T.
.Workbooks.Open("&xArchivo")
* Cantidad de columnas o campos
lnCol = .ActiveSheet.UsedRange.Columns.Count
* Se resta la cantidad de filas donde estan los campos
lnFil = .ActiveSheet.UsedRange.Rows.Count - 1
FOR lnJ = 2 TO lnFil
IF ISNULL(.ActiveSheet.Range("A"+ALLTRIM(STR(lnJ))).value)
EXIT
ENDIF
SELECT("&xTabla")
APPEND BLANK
FOR lnI = 1 TO lnCol
xCampo = .ActiveSheet.Cells(1,lnI).value &&Nombre del campo destino
xTipoCampo = TYPE((FIELD(lnI))) && Se obtiene el tipo de campo
xValor = .ActiveSheet.Cells(lnJ,lnI).value && Se obtiene el valor del campo
DO CASE
CASE xTipoCampo = "D"
IF ISNULL(xValor)
REPLACE (FIELD(lnI)) WITH CTOD(" / / ")
ELSE
*REPLACE (FIELD(lnI)) WITH TTOD(xvalor) IN &xTabla
REPLACE (FIELD(lnI)) WITH Car2Fecha(xvalor) IN &xTabla
ENDIF
CASE xTipoCampo = "C"
IF VARTYPE(xValor) = "N"
REPLACE (FIELD(lnI)) WITH ALLTRIM(UPPER(STR(xvalor))) IN &xTabla
ELSE
REPLACE (FIELD(lnI)) WITH xValor IN &xTabla
ENDIF
CASE xTipoCampo = "N"
IF ISNULL(xValor)
REPLACE (FIELD(lnI)) WITH 0 IN &xTabla
ELSE
REPLACE (FIELD(lnI)) WITH xValor IN &xTabla
ENDIF
ENDCASE
ENDFOR
ENDFOR
*Cierro plantilla
.Workbooks.Close
*Salgo de Excel
.Quit
ENDWITH
RELEASE loExcel
--- En usuarios_fox@yahoogrupos.com.mx, Mario Goldstein <mariogoldstein@...> escribió:
>
> Gracias!!! Pero no tengo conocimiento de cómo se hace.
>
> Si alguno puede guiarme un poco, ayudaría.
>
>
>
> Gracias!
>
> Mario Goldstein 15-4428-9199
>
>
>
> De: usuarios_fox@yahoogrupos.com.mx [mailto:usuarios_fox@yahoogrupos.com.mx] En nombre de Nosferatu
> Enviado el: sábado, 29 de diciembre de 2012 14:12
> Para: usuarios_fox@yahoogrupos.com.mx
> Asunto: Re: [usuarios_fox] Datos en excel
>
>
>
>
>
>
>
> Lo puedes hacer en ambas direcciones, dependiendo de la criticidad y el nivel de seguridad que tenga tu aplicacion.
>
> pero con los conectores OBDC puedes realizar las conexiones de una macro en excel o en tu aplicacion con creando objetos.
>
> Saludos.
>
> ________________________________
> De: Mario Goldstein <mariogoldstein@... <mailto:mariogoldstein%40hotmail.com> >
> Para: usuarios_fox@yahoogrupos.com.mx <mailto:usuarios_fox%40yahoogrupos.com.mx>
> Enviado: Sábado, 29 de diciembre, 2012 8:19:28
> Asunto: [usuarios_fox] Datos en excel
>
>
>
> Querido grupo:
>
> Necesito hallar el nexo entre una planilla Excel o Open Office y una dbf.
>
> Es decir, tengo valores en una Excel que van cambiando cada tanto y que
> necesito levantarlos automáticamente desde un sistema VFP9
>
> Cómo debo hacer para que el VFP me lea datos de una Excel ó Open Office SIN
> que lo tenga que exportar desde Excel a una dbf?
>
> ¿Se puede?
>
> Gracias!
>
> Mario Goldstein
>
> De: usuarios_fox@yahoogrupos.com.mx <mailto:usuarios_fox%40yahoogrupos.com.mx> [mailto:usuarios_fox@yahoogrupos.com.mx <mailto:usuarios_fox%40yahoogrupos.com.mx> ]
> En nombre de Alejandra Espinosa García
> Enviado el: jueves, 27 de diciembre de 2012 14:37
> Para: usuarios_fox@yahoogrupos.com.mx <mailto:usuarios_fox%40yahoogrupos.com.mx>
> Asunto: RE: [usuarios_fox] FELICES FIESTAS A TODOS
>
> Feliz navidad les deseo a tyodos!!!! y un excelente Año Nuevo en compañía de
> todos sus seres queridos!!!!
>
> Un fuerte abrazo y los mejores deseos
>
> Saludos.
>
> Lic. Alejandra Espinosa
>
> De: usuarios_fox@yahoogrupos.com.mx <mailto:usuarios_fox%40yahoogrupos.com.mx>
> <mailto:usuarios_fox%40yahoogrupos.com.mx>
> [mailto:usuarios_fox@yahoogrupos.com.mx <mailto:usuarios_fox%40yahoogrupos.com.mx>
> <mailto:usuarios_fox%40yahoogrupos.com.mx> ]
> En nombre de BJ Fagoaga
> Enviado el: Viernes, 21 de Diciembre de 2012 11:38
> Para: usuarios_fox@yahoogrupos.com.mx <mailto:usuarios_fox%40yahoogrupos.com.mx>
> <mailto:usuarios_fox%40yahoogrupos.com.mx>
> Asunto: [usuarios_fox] FELICES FIESTAS A TODOS
> Importancia: Alta
>
> Hola Compañeros:
>
> Espero que tengan una felices fiestas navideñas y él próximo año este
> colmado de éxito para todos, mucha salud que es lo importante.
>
> Son mis sinceros deseos para los integrantes del grupo y sus familias
>
> Atentamente
>
> BJ Fagoaga Chávez.
>
> IOCA
>
> [Se han eliminado los trozos de este mensaje que no contenían texto]
>
> [Se han eliminado los trozos de este mensaje que no contenían texto]
>
> _____
>
> Se certificó que el correo no contiene virus.
> Comprobada por AVG - www.avg.es
> Versión: 2012.0.2221 / Base de datos de virus: 2637/5490 - Fecha de la
> versión: 27/12/2012
>
> [Se han eliminado los trozos de este mensaje que no contenían texto]
>
> [Se han eliminado los trozos de este mensaje que no contenían texto]
>
>
>
> _____
>
> Se certificó que el correo no contiene virus.
> Comprobada por AVG - www.avg.es
> Versión: 2012.0.2221 / Base de datos de virus: 2637/5495 - Fecha de la versión: 29/12/2012
>
>
>
> [Se han eliminado los trozos de este mensaje que no contenían texto]
>
Nenhum comentário:
Postar um comentário