Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 31 de dezembro de 2012

]] XL-mania [[ Distance & Azimut antara dua koordinat

 

Dear Pakar Xl,

Mohon bantuan untuk fomula distance & Azimut untuk dua koordinat seperti contoh di bawah : 

Koordinat 1   : -1.6161 116.24217
Koordinat 2  : -1.5871 116.21489
Distance4.4Km
Azº  317 º derajat

Terima Kasih
Salam, Ammar

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Merry Christmas. May God bless you and your family...             |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
.

__,_._,___

domingo, 30 de dezembro de 2012

[usuarios_fox] Re: Datos en excel

 

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]
>

__._,_.___
Actividad reciente:
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

.

__,_._,___

Re: [usuarios_fox] Resumen nº 2684

 

Espero les sirva este ejemplo.
 
El archivo de excel ya debe estar creado.
 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=1M.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)
NEXTENDWITH*: Guardamos el archivo excelloexcel.
Save*: Cerramos excelloExcel.
APPLICATION.workbooks.close*: Liberamos el objetoRELEASE
loExcelRETURN
 


________________________________
De: "usuarios_fox@yahoogrupos.com.mx" <usuarios_fox@yahoogrupos.com.mx>
Para: usuarios_fox@yahoogrupos.com.mx
Enviado: Domingo, 30 de diciembre, 2012 3:02:46
Asunto: [usuarios_fox] Resumen nº 2684


Usuarios y Desarrolladores/Visual Foxpro
Usuarios y Desarrolladores/Visual Foxpro
Mensajes de este resumen (3 Mensajes)

1.1.
Datos en excel De: Mario Goldstein
1.2.
Re: Datos en excel De: Nosferatu
1.3.
Re: Datos en excel De: Mario Goldstein Ver todos los temas | Crear tema nuevo Mensajes
1.1.
Datos en excel
Enviado por: "Mario Goldstein" mailto:mariogoldstein@hotmail.com?Subject= RE%3A%20Datos%20en%20excel   mariogoldstein
Sáb, 29 de Dic, 2012 9:08 am (CST)

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: mailto:usuarios_fox%40yahoogrupos.com.mx [mailto:mailto:usuarios_fox%40yahoogrupos.com.mx]
En nombre de Alejandra Espinosa García
Enviado el: jueves, 27 de diciembre de 2012 14:37
Para: 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: mailto:usuarios_fox%40yahoogrupos.com.mx
<mailto:usuarios_ fox%40yahoogrupo s.com.mx>
[mailto:mailto:usuarios_fox%40yahoogrupos.com.mx
<mailto:usuarios_ fox%40yahoogrupo s.com.mx> ]
En nombre de BJ Fagoaga
Enviado el: Viernes, 21 de Diciembre de 2012 11:38
Para: mailto:usuarios_fox%40yahoogrupos.com.mx
<mailto:usuarios_ fox%40yahoogrupo s.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]

Arriba Responder a remitente | Responder a grupo | Responder mediante la Web
Mensajes con este tema (8)
1.2.
Re: Datos en excel
Enviado por: "Nosferatu" mailto:gdl_nosferatu@yahoo.com.mx?Subject= Re%3A%20Datos%20en%20excel   gdl_nosferatu
Sáb, 29 de Dic, 2012 11:20 am (CST)

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 <mailto:mariogoldstein%40hotmail.com>
Para: 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: mailto:usuarios_fox%40yahoogrupos.com.mx [mailto:mailto:usuarios_fox%40yahoogrupos.com.mx]
En nombre de Alejandra Espinosa García
Enviado el: jueves, 27 de diciembre de 2012 14:37
Para: 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: mailto:usuarios_fox%40yahoogrupos.com.mx
<mailto:usuarios_ fox%40yahoogrupo s.com.mx>
[mailto:mailto:usuarios_fox%40yahoogrupos.com.mx
<mailto:usuarios_ fox%40yahoogrupo s.com.mx> ]
En nombre de BJ Fagoaga
Enviado el: Viernes, 21 de Diciembre de 2012 11:38
Para: mailto:usuarios_fox%40yahoogrupos.com.mx
<mailto:usuarios_ fox%40yahoogrupo s.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]

Arriba Responder a remitente | Responder a grupo | Responder mediante la Web
Mensajes con este tema (8)
1.3.
Re: Datos en excel
Enviado por: "Mario Goldstein" mailto:mariogoldstein@hotmail.com?Subject= Re%3A%20Datos%20en%20excel   mariogoldstein
Sáb, 29 de Dic, 2012 5:47 pm (CST)

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: mailto:usuarios_fox%40yahoogrupos.com.mx [mailto:mailto:usuarios_fox%40yahoogrupos.com.mx] En nombre de Nosferatu
Enviado el: sábado, 29 de diciembre de 2012 14:12
Para: mailto:usuarios_fox%40yahoogrupos.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 <mailto:mariogoldstein%40hotmail.com <mailto:mariogoldst ein%40hotmail. com> >
Para: mailto:usuarios_fox%40yahoogrupos.com.mx <mailto:usuarios_ fox%40yahoogrupo s.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: mailto:usuarios_fox%40yahoogrupos.com.mx <mailto:usuarios_ fox%40yahoogrupo s.com.mx> [mailto:mailto:usuarios_fox%40yahoogrupos.com.mx <mailto:usuarios_ fox%40yahoogrupo s.com.mx> ]
En nombre de Alejandra Espinosa García
Enviado el: jueves, 27 de diciembre de 2012 14:37
Para: mailto:usuarios_fox%40yahoogrupos.com.mx <mailto:usuarios_ fox%40yahoogrupo s.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: mailto:usuarios_fox%40yahoogrupos.com.mx <mailto:usuarios_ fox%40yahoogrupo s.com.mx>
<mailto:usuarios_ fox%40yahoogrupo s.com.mx>
[mailto:mailto:usuarios_fox%40yahoogrupos.com.mx <mailto:usuarios_ fox%40yahoogrupo s.com.mx>
<mailto:usuarios_ fox%40yahoogrupo s.com.mx> ]
En nombre de BJ Fagoaga
Enviado el: Viernes, 21 de Diciembre de 2012 11:38
Para: mailto:usuarios_fox%40yahoogrupos.com.mx <mailto:usuarios_ fox%40yahoogrupo s.com.mx>
<mailto:usuarios_ fox%40yahoogrupo s.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]

Arriba Responder a remitente | Responder a grupo | Responder mediante la Web
Mensajes con este tema (8)

Actividad reciente
*  1
Miembros nuevos Visita tu grupo
Y! Respuestas
Pregunta
Gente real te
responde
Yahoo! Messenger
Mensajero perfecto
Llama de PC a PC
sin costo alguno
Barra Yahoo!
Todo a un clic
Acceso rápido a
servicios Yahoo!
¿Necesitas responder?
Haz clic en cualquiera de los enlaces "Responder" para responder a un mensaje en concreto del resumen diario.
Crear tema nuevo | Visita tu grupo en la Web
Mensajes
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

Modificar la configuración mediante la Web (ID de Yahoo! obligatoria)
Modificar la configuración mediante el correo: Cambiar a mensajes individuales | Cambiar el formato a Tradicional
Visita tu grupo | Condiciones de uso de Yahoo! Grupos | Cancelar suscripción

[Se han eliminado los trozos de este mensaje que no contenían texto]

__._,_.___
Actividad reciente:
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

.

__,_._,___

sábado, 29 de dezembro de 2012

[usuarios_fox] Re: Datos en excel

 



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]
>

__._,_.___
Actividad reciente:
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

.

__,_._,___

RE: [usuarios_fox] Datos en excel

 

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]

__._,_.___
Actividad reciente:
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

.

__,_._,___

RE: [usuarios_fox] Datos en excel

 

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]

__._,_.___
Actividad reciente:
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

.

__,_._,___

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>
Para: usuarios_fox@yahoogrupos.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@yahoogrupos.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
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@yahoogrupos.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>
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]

__._,_.___
Actividad reciente:
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

.

__,_._,___

Re: ]] XL-mania [[ sortir data

 

Semoga file terlampir sesuai harapan

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (6)
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Merry Christmas. May God bless you and your family...             |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
.

__,_._,___

[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@yahoogrupos.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
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@yahoogrupos.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>
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]

__._,_.___
Actividad reciente:
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

.

__,_._,___

Arquivo do blog