Error 80010108

hola (...), ?????

... estoy ejecutando unas cuantas macros de actualizacion de ficheros
y en varias ociasiones y sin saber exactamente el motivo
puesto que es bastante variable me aparece el mensaje de error:
Se ha producido el error -2147417848 (80010108) en tiempo de ejecucion
Error de automatizacion
Las macros llaman a una macro de otro fichero, realiza una tarea de actualizacion de tablas dinamicas con paso de parametros
modificando el SQL de las tablas dinamicas y finaliza. En algunas ocasiones falla y en otras no...
He realizado varias pruebas pero no consigo obtener la razon del problema...

(hasta donde se) los errores de tipo -2147xxxx (800xxxx) son errores de automatizacion
(es decir) tienes alguna macro tratando de llamar a algun proveedor/objeto/... que no esta presente (o visible)
(probablemente) tendras instalado algun complemento (de terceros) provocando este error -?-

si es por un libro con macros, comprueba si tienes alguna libreria marcada como FALTA:xxx o MISSING:xxx
desde el editor de vba en (menu) herramientas / referencias...

revisa en el editor de vba, desde (menu) herramientas / compementos ...
-> desmarca los que veas "ajenos" o de terceros (o los que agregan menus y comandos a las barras)
-> cierra / reinicia excel y vas probando instalando uno a uno para descubrir al causante -?-

tambien suele casionar errores de este tipo una instalacion incompleta (fallida o corrupta)
del complemento "herramientas para el euro" (eurotool.xla/m)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

On 6 nov, 03:38, "Héctor Miguel"
wrote:

hola (...), ?????

> ... estoy ejecutando unas cuantas macros de actualizacion de ficheros
> y en varias ociasiones y sin saber exactamente el motivo
> puesto que es bastante variable me aparece el mensaje de error:
> Se ha producido el error -2147417848 (80010108) en tiempo de ejecucion
> Error de automatizacion
> Las macros llaman a una macro de otro fichero, realiza una tarea de actualizacion de tablas dinamicas con paso de parametros
> modificando el SQL de las tablas dinamicas y finaliza. En algunas ocasiones falla y en otras no...
> He realizado varias pruebas pero no consigo obtener la razon del problema...

(hasta donde se) los errores de tipo -2147xxxx (800xxxx) son errores de automatizacion
(es decir) tienes alguna macro tratando de llamar a algun proveedor/objeto/... que no esta presente (o visible)
(probablemente) tendras instalado algun complemento (de terceros) provocando este error    -?-

si es por un libro con macros, comprueba si tienes alguna libreria marcada como FALTA:xxx    o MISSING:xxx
desde el editor de vba en (menu) herramientas / referencias...

revisa en el editor de vba, desde (menu) herramientas / compementos ...
-> desmarca los que veas "ajenos" o de terceros (o los que agregan menus y comandos a las barras)
-> cierra / reinicia excel y vas probando instalando uno a uno para descubrir al causante    -?-

tambien suele casionar errores de este tipo una instalacion incompleta (fallida o corrupta)
del complemento "herramientas para el euro" (eurotool.xla/m)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Pues es posible que se trate de una llamada que realizo a una BBDD
access a través de SQL de la siguiente manera:

ActiveSheet.PivotTableWizard SourceType:=xlExternal, SourceData:=Array
(SQL), Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\RUTA
\BBDD.mdb;DefaultDir»DD,DriverId%;FIL=MS
Access;MaxBufferSize 48;PageTimeout=5;"))

Y luego tengo la funcion SQL como:

Private Function SQL() As String

SQL = ""
SQL = "SELECT Tbl.*" & Chr(13) & "" & Chr(10) & "FROM `C:\RUTA
\BBDD`.ConsultadelaBBDD Tbl"
SQL = SQL & Chr(13) & "" & Chr(10)
If Cadena <> "%" Then
SQL = SQL & "WHERE (Tbl.parámetro= '" & parametro & "') and
(Tbl.Entrad=1) and (Tbl.Seccion BETWEEN " & SeccionDesde & "AND " &
SeccionHasta & ")"
End If
End Function

he modificado un poco el código por tema de la info...
¿Alguna idea de cómo solucionarlo? Muchas gracias y un saludo!

hola (...) ?????

en la funcion que describes (Function SQL() As String)...
a) tienes unas instrucciones que insertan SALTOS de linea: Chr(10) y Chr(13)
b) si son parte de una "cadena de texto" (?) estos saltos interrumpen la "estructura" de una cadena de texto para consultas :-((

=> cual es el "caracter" (real) que necesitas administrar DENTRO de la cadena (de texto) de tu variable (SQL) de tipo String (texto) ???
esto asumiendo que las otras partes del codigo (que NO comentas) no son causa tambien de posibles errores (?????)

saludos,
hector.

__ OP __
Pues es posible que se trate de una llamada que realizo a una BBDD access a traves de SQL de la siguiente manera:

ActiveSheet.PivotTableWizard SourceType:=xlExternal, SourceData:=Array(SQL), Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\RUTA\BBDD.mdb;DefaultDir»DD,DriverId%;FIL=MSAccess;MaxBufferSize 48;PageTimeout=5;"))

Y luego tengo la funcion SQL como:

Private Function SQL() As String
SQL = ""
SQL = "SELECT Tbl.*" & Chr(13) & "" & Chr(10) & "FROM `C:\RUTA\BBDD`.ConsultadelaBBDD Tbl"
SQL = SQL & Chr(13) & "" & Chr(10)
If Cadena <> "%" Then
SQL = SQL & "WHERE (Tbl.parámetro= '" & parametro & "') and (Tbl.Entrad=1) and (Tbl.Seccion BETWEEN " & SeccionDesde & "AND " &
SeccionHasta & ")"
End If
End Function

he modificado un poco el codigo por tema de la info...
Alguna idea de como solucionarlo? Muchas gracias y un saludo!

__ previos __

... estoy ejecutando unas cuantas macros de actualizacion de ficheros
y en varias ociasiones y sin saber exactamente el motivo
puesto que es bastante variable me aparece el mensaje de error:
Se ha producido el error -2147417848 (80010108) en tiempo de ejecucion
Error de automatizacion
Las macros llaman a una macro de otro fichero, realiza una tarea de actualizacion de tablas dinamicas con paso de parametros
modificando el SQL de las tablas dinamicas y finaliza. En algunas ocasiones falla y en otras no...
He realizado varias pruebas pero no consigo obtener la razon del problema...

(hasta donde se) los errores de tipo -2147xxxx (800xxxx) son errores de automatizacion
(es decir) tienes alguna macro tratando de llamar a algun proveedor/objeto/... que no esta presente (o visible)
(probablemente) tendras instalado algun complemento (de terceros) provocando este error -?- [...]

Hola Hector, no entiendo qué es lo que me quieres decir exactamente.
¿Quieres decir que la cadena SQL puede dar errores? ¿Cómo debería ser
o cómo lo indicarías tu?
Es un código de una aplicación ya desarrollada que estoy tratando de
completar y automatizar.
Muchísimas gracias por tu ayuda y el interés mostrado. Un saludo.


On 6 nov, 22:51, "Héctor Miguel"
wrote:

hola (...) ?????

en la funcion que describes (Function SQL() As String)...
a) tienes unas instrucciones que insertan SALTOS de linea: Chr(10) y Chr(13)
b) si son parte de una "cadena de texto" (?) estos saltos interrumpen la "estructura" de una cadena de texto para consultas :-((

=> cual es el "caracter" (real) que necesitas administrar DENTRO de la cadena (de texto) de tu variable (SQL) de tipo String (texto) ???
     esto asumiendo que las otras partes del codigo (que NO comentas) no son causa tambien de posibles errores (?????)

saludos,
hector.

__ OP __
Pues es posible que se trate de una llamada que realizo a una BBDD access a traves de SQL de la siguiente manera:

ActiveSheet.PivotTableWizard SourceType:=xlExternal, SourceData:=Array(SQL), Connection:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=C:\RUTA\BBDD.mdb;DefaultDir»DD,DriverId%;FIL=MSAccess;MaxBufferSize 48;PageTimeout=5;"))

Y luego tengo la funcion SQL como:

Private Function SQL() As String
    SQL = ""
    SQL = "SELECT Tbl.*" & Chr(13) & "" & Chr(10) & "FROM `C:\RUTA\BBDD`.ConsultadelaBBDD Tbl"
    SQL = SQL & Chr(13) & "" & Chr(10)
    If Cadena <> "%" Then
        SQL = SQL & "WHERE (Tbl.parámetro= '" & parametro & "') and (Tbl.Entrad=1) and (Tbl.Seccion BETWEEN " & SeccionDesde & "AND " &
SeccionHasta & ")"
    End If
End Function

he modificado un poco el codigo por tema de la info...
Alguna idea de como solucionarlo? Muchas gracias y un saludo!

__ previos __

>> ... estoy ejecutando unas cuantas macros de actualizacion de ficheros
>> y en varias ociasiones y sin saber exactamente el motivo
>> puesto que es bastante variable me aparece el mensaje de error:
>> Se ha producido el error -2147417848 (80010108) en tiempo de ejecucion
>> Error de automatizacion
>> Las macros llaman a una macro de otro fichero, realiza una tarea de actualizacion de tablas dinamicas con paso de parametros
>> modificando el SQL de las tablas dinamicas y finaliza. En algunas ocasiones falla y en otras no...
>> He realizado varias pruebas pero no consigo obtener la razon del problema...

> (hasta donde se) los errores de tipo -2147xxxx (800xxxx) son errores de automatizacion
> (es decir) tienes alguna macro tratando de llamar a algun proveedor/objeto/... que no esta presente (o visible)
> (probablemente) tendras instalado algun complemento (de terceros) provocando este error -?-    [...]

hola (...), ?????

__ 1 __

... no entiendo que es lo que me quieres decir exactamente.

1) que no creo apropiado el uso de Chr(10) ni Chr(13) como parte de cadenas DE TEXTO para consultas "SQL"

__ 2 __

Quieres decir que la cadena SQL puede dar errores?

2) haz una prueba... en algun punto de tu codigo, una vez "construida" totalmente la variable de texto (SQL)
mandala a pantalla en un cuadro de mensaje (p.e.) MsgBox SQL
y veras NO una laaaaarga cadena de texto, si no VARIAS lineas de texto interrumpidas (precisamente) por cada Chr(10) o Chr(13)

__ 3 __

Como deberia ser o como lo indicarias tu?

3) yo ??? no tengo ni idea, vuelve a leer esta parte del mensaje anterior...

=> cual es el "caracter" (real) que necesitas administrar DENTRO de la cadena (de texto) de tu variable (SQL) de tipo String (texto) ???
esto asumiendo que las otras partes del codigo (que NO comentas) no son causa tambien de posibles errores (?????)

__ 4 __

Es un codigo de una aplicacion ya desarrollada que estoy tratando de completar y automatizar...

4) cabria la posibilidad de que "tratando de completar y automatizar" hubieras modificado partes esenciales del codigo "original" ???

saludos,
hector.