Rutina para importar desde xls, xlsx por odbc ¿ Alguien tiene algo de estos ?

[arti...@gmail.com]

Hola, me gustaría saber si alguien conoce el procedimiento para importar / exportar por odbc para leer hojas de cálculo

[francisco prieto]

Artigest,

Revisa ese link y comenta si se te soluciono el inconveniente.

https://www.connectionstrings.com/excel/

Saludos,

Pancho

Córdoba

Argentina

[hpuchuri]

Buenas tardes, me podrian proporcionar lo mismo pero para importar datos de microsoft project a los dbf, algun procedimiento o cadena de conexion para hacerlo mismo excel...

[hpuchuri]

Te envió un ejemplo que utilizo.

IF pFile = 'XLS' THEN 

*cCadenaConexion = "Driver={Microsoft Excel Driver (*.xls)}; DriverId=790;Dbq="+lcArchivoMDB+";DefaultDir="+Justpath(lcArchivoMDB)+";"

lcXLS = pRutaFile

TEXT TO m.lcConn NOSHOW PRETEXT 15 TEXTMERGE

    DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb);

    UID=admin;

    FIL=excel 12.0;

    DriverId=1046;

    DefaultDir=<<JustPath(m.lcXLS)>>;

    DBQ=<<m.lcXLS>>

ENDTEXT

lnHandle = SQLStringConnect(m.lcConn) 

IF lnHandle > 0 

IF SQLTables(m.lnHandle,"", "SheetNames") > 0

Scan

   lcTableName = ALLTRIM(Trim(SheetNames.Table_Name))

   *lcOutput = Chrtran(m.lcTableName,' $','_')

   *SQLExec(lnHandle,'select * from ['+m.lcTableName+']',m.lcOutput )

   SQLExec(lnHandle,'select * from ['+m.lcTableName+']',"cImport" )

endscan

SQLDisconnect(lnHandle)

ELSE 

**** Manejo de Errores 

IF AERROR(laError) > 0 

Messagebox("Error al obtener entidades:"+laError[2]) 

ELSE 

Messagebox("Error inesperado al obtener entidades...") 

ENDIF 

ENDIF 

ELSE 

IF AERROR(laError) > 0 

Messagebox("Error al intentar conectar:"+laError[2]) 

ELSE 

MESSAGEBOX("Error inesperado al intentar conectar") 

Endif 

Endif

ENDIF 

El lunes, 8 de junio de 2015, 6:34:33 (UTC-5), arti...@yahoo.es escribió: