Espero sirva este ejemplo.
SET EXCLUSIVE OFF
SET DATE TO dmy
SET CENTURY ON
SET DELETED ON
*: El archivo ya debe estar creado
*: Nombre del archivo excel a abir incluyendo ruta
M.ARCHIVO="c:\sistemas\ejemplo_fox_excel.xlsx"
*: Hoja de excel a utilizar
M.HOJA="Hoja1"
*: Esto se utiliza para hacer una lectura desde una fila inicial hasta una final
*: No es estrictamente necesario
M.FILAINI=1
M.FILAFIN=2000
*: Se crea el objeto de excel
loExcel=CREATEOBJECT("Excel.application")
WITH loExcel.APPLICATION
*: con esto se muestra o no el excel en la pantalla
.VISIBLE = .t.
*: Abrimos el archivo
.workbooks.OPEN(M.ARCHIVO)
*:***** PARA EXCRIBIR EN EL EXCEL
*: Seleccionamos la hoja con la que se quiere trabajar
.sheets(M.HOJA).select
*: Poner un valor en una celda. en este caso es fija C4 y D4
.range("C4").value = "Valor en C4"
.range("D4").value = "Valor en D4"
FOR FILA=1 TO 3
*: Variando la fila
.range("A"+ALLTRIM(STR(FILA))).value = "A"+ALLTRIM(STR(FILA))
.range("B"+ALLTRIM(STR(FILA))).value = "B"+ALLTRIM(STR(FILA))
NEXT
*:***** PARA LEER DESDE EL EXCEL
*: Poner un valor en una celda. en este caso es fija C4 y D4
M.VALORCELDA = .range("C4").value
=MESSAGEBOX(M.VALORCELDA)
M.VALORCELDA = .range("D4").value
=MESSAGEBOX(M.VALORCELDA)
FOR FILA=1 TO 3
*: Variando la fila
M.VALORCELDA = .range("A"+ALLTRIM(STR(FILA))).value
=MESSAGEBOX(M.VALORCELDA)
M.VALORCELDA = .range("B"+ALLTRIM(STR(FILA))).value
=MESSAGEBOX(M.VALORCELDA)
NEXT
ENDWITH
*: Guardamos el archivo excel
loexcel.Save
*: Cerramos excel
loExcel.APPLICATION.workbooks.close
*: Liberamos el objeto
RELEASE loExcel
RETURN
--- 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