Está es un pregunta muy habitual; en el siguiente
ejemplo veremos como importar datos desde Excel a VFP sin necesidad de tener
Excel instalado, puesto que lo haremos a través del Driver ODBC de Excel.

cFileXLS = Getfile("XLS")

cConn = "Driver={Microsoft
Excel Driver (*.xls)};"+;

        "DriverId=790;Dbq="+cFileXLS+;

       
";DefaultDir="+Justpath(cFileXLS)+";"

nH =
SqlStringConnect(cConn)

SQLTables(nH,"",
"SheetNames")

Scan

    cTabla =
Trim(SheetNames.Table_Name)

   
cCursor = Chrtran(cTabla,"
$","_")

   
SQLExec(nH,'Select
* From ['+cTabla+']',cCursor)

   
Select
(cCursor)

   
Browse

EndScan

SQLDisconnect(nH)


 

El simple proceso de abrir tus tablas te puede
ayudar en ciertos casos a determinar si tiene algún problema o está corrupta.

Aquí tiene como puedes realizar este proceso:

nTablas = Adir(aMisTablas,"*.dbf")

On Error ?aMisTablas[x,1]
+
" tiene errores"

For x = 1
To
nTablas

    Use
aMisTablas[x,1]
Shared

EndFor

Use

On Error

En este truco veremos como podemos agregar un
botón en el Screen de VFP y darle funcionalidad utilizando el BindEvents

Public oHnd

oHnd = Newobject("MiClick")

With _Screen

    .AddObject("CmdBoton",
"CommandButton")

   
Bindevent(_Screen.CmdBoton,"Click",oHnd,"ReClick")

   
With
.CmdBoton

       
.Caption
=
"Botón"

       
.Top
= 10

       
.Left
= 10

       
.Height
= 27

       
.Visible
= .T.

   
Endwith

   
Return

Endwith

Define Class MiClick
As Session

   
Procedure ReClick

       
Messagebox("Hola
a todos")

   
Return

EndDefine

Este es un completo ejemplo de como puedes enviar
email utilizando MAPI; tienes que tener en cuenta que es necesario que tengas
configurada una cuenta de correos en tu PC para poder probar este ejemplo.

Local oSession
As
MSMAPI.MAPISession


Local oMsg
As
MSMAPI.MAPIMessages

oSession =
Createobject("MSMAPI.MAPISession")

oMsg = Createobject("Msmapi.MapiMessages")

oSession.DownLoadMail = .F.

oSession.SignOn

oMsg.sessionid = oSession.sessionid

cDestino = "para@dominio.com"

With oMsg

   
.compose

   
.MsgIndex = -1

   
.msgsubject =
"Titulo"

   
.msgnotetext =
"Texto del mensaje"

   
.AddressResolveUI = .F.

   
.RecipAddress = cDestino

   
* En caso que desee
adjuntar archivos

   
* En el ejemplo se adjuntas 2 archivos

   
*------------------------------------------

   
.AttachmentIndex = 0

   
.AttachmentName =
"datos1.ext"

   
.AttachmentPathName =
"C:\datos1.ext"

   
.AttachmentIndex = 1

   
.AttachmentName =
"datos2.ext"

   
.AttachmentPathName =
"C:\datos2.ext"

   

*-------------------------------------------

   
.Send

   
oSession.signoff


EndWith

Release oMsg


Release oSession


 

PRG para almacenar en una tabla cualquier clase de archivo...BUENO

Navegar en Internet desde un Formulario de VFP

Prueba de VFP y .NET

Ejemplo de un Visor de Texto API para VFP. Convierte código de las APIS de VB a VFP.

Traduce palabras utilizando servicios Web y XML. Requiere de conexión a Internet. BUENO

VFPIMAGE.FLL utilizada para convertir imágenes a diferentes formatos, soporta BMP, JPG, PNG. Incluye ejemplo de como utilizarla.

YRecover - Otra utilidad para recuperar o descompilar los formularios, reportes, VCX de un EXE o APP de VFP.

El popular servicio de mensajeria de MSN. La nueva versión para Win98, ME…

Proporciona a tus aplicaciones una nueva forma de interactuar con el usuario y mensajes personalizados al estilo de office.

SUPER utilidad que te permite exportar tus reportes a Word, Excel, PDF, HTML, XML y ahora a BMP, JPEG, GIF. PNG .... es de lo mejor. Esta versión esta diseñada para VFP 6 y 7 pero puedes descargar la versión para VFP desde www.eqeus.com. - Shareware.

Es la nueva versión de ActiveSync el cual te permite sincronizar datos entre el PC y Pocket PCs and Smartphones basados wn Windows Mobile.