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
>>> Mario Goldstein <mariogoldstein@hotmail.com> 12/29/2012 5:44 p.m.
>>>
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@hotmail.com
<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]
------------------------------------
Comentarios, observaciones o si deseas darte de baja avísame a:
jamorquecho@hotmail.com
Enlaces a Yahoo! Grupos
DISCLAIMER:
This message is intended only for the use of the individual or entity to
which it is directed and may contain information that is privileged,
confidential and exempt from disclosure under applicable law. If the
reader of this message is not the intended recipient, you are hereby
notified that any dissemination, distribution or copying of this
communication is strictly prohibited. If you have received this
communication in error, please notify the sender immediately by reply
e-mail and delete the message and any attachments.
[Se han eliminado los trozos de este mensaje que no contenían texto]
Nenhum comentário:
Postar um comentário