Aug 22
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)
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
