Esperen ya les salve la anterior pregunta en el foro jajaja.. Ahora si ayudenme por favor con esta.

Verifica si en ODBC tienes el Microsoft Excel Driver instalado...???

"Moreno" escribió en el mensaje de noticias
news:
Hago un acceso a una tabla en excel, en mi ordenador funciona perfecto
pero por que con mi cliente en las maquinas que instalo mi sistema no
funciona.

Yo pienso que en mi equipo funciona bien por que tengo instalado VFP
9.0 pero mi cliente solo instala el archivo de distribucion de install
shield que hice.

Mi rutina es ...

IF imp_acht = 2 && Excel
HojaXLSx=imp_hoja
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
lcConnstr AS STRING
CLEAR
lcXLBook = "&imp_achi"
lcConnstr = [Driver=] + [{Microsoft Excel Driver (*.xls, *.xlsx,
*.xlsm, *.xlsb)};] + [DBQ=] + lcXLBook
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )
HojaXLSx0 = ALLTRIM(HojaXLSx)+"$"
lcSQLCmd = [Select * FROM "&HojaXLSx0"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
IF lnSuccess < 0
LOCAL ARRAY laErr[1]
AERROR( laErr )
MESSAGEBOX("Error encontrado "+laErr(3),16,_SSSTM)
SQLDISCONNECT( lnSQLHand )
Importar=.F.
ELSE
SELECT xlResults
COPY TO (Achpas01)
SQLDISCONNECT( lnSQLHand )
ENDIF
ENDIF

¿Que libreria (DLL) tengo que bajar en el equipo de mi cliente para
que esta rutina funcione?

Gracias.

On 14 mayo, 08:23, "Luis Martinez"
wrote:

Verifica si en ODBC tienes el Microsoft Excel Driver instalado...???

"Moreno" escribió en el mensaje de noticiasnews:
Hago un acceso a una tabla en excel, en mi ordenador funciona perfecto
pero por que con mi cliente en las maquinas que instalo mi sistema no
funciona.

Yo pienso que en mi equipo funciona bien por que tengo instalado VFP
9.0 pero mi cliente solo instala el archivo de distribucion de install
shield que hice.

Mi rutina es ...

IF imp_acht = 2 && Excel
HojaXLSx=imp_hoja
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
   lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
   lcConnstr AS STRING
CLEAR
lcXLBook = "&imp_achi"
lcConnstr = [Driver=] + [{Microsoft Excel Driver (*.xls, *.xlsx,
*.xlsm, *.xlsb)};] + [DBQ=] + lcXLBook
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )
HojaXLSx0 = ALLTRIM(HojaXLSx)+"$"
lcSQLCmd = [Select * FROM "&HojaXLSx0"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
IF lnSuccess < 0
    LOCAL ARRAY laErr[1]
   AERROR( laErr )
    MESSAGEBOX("Error encontrado "+laErr(3),16,_SSSTM)
    SQLDISCONNECT( lnSQLHand )
    Importar=.F.
ELSE
SELECT xlResults
COPY TO  (Achpas01)
SQLDISCONNECT( lnSQLHand )
ENDIF
ENDIF

¿Que libreria  (DLL) tengo que bajar en el equipo de mi cliente para
que esta rutina funcione?

Gracias.

Que tal Luis Ayer me di a la tarea de verificar con mi cliente si
estaba el controlador de Excel y si esta de echo con esta rutina en
teoria puedes abrir cualquier verion de excel y mi cliente tiene
Office 2003.

Por eso piendo que es un Dll. el que le hace falta.

Alguna otra idea?

Gracias.