Cambio de origen de datos ODBC

Quizás la cadena de conexión de las consultas anteriores esté mal. Puedes averiguar dicha cadena tanto de una consulta anterior como de una nueva, y compararlas. El código podría ser:

Sub MostrarConexión()
Dim qt As QueryTable
Set qt = ActiveSheet.QueryTables(1)
MsgBox qt.Connection
Set qt = Nothing
End Sub

Si hubiera alguna diferencia, sería posible cambiar la cadena de conexión de las consultas anteriores mediante algo como:

Sub ModificarConexión()
Dim qt As QueryTable
Set qt = ActiveSheet.QueryTables(1)
qt.Connection = "Nueva cadena de conexión"
Set qt = Nothing
End Sub

aunque si estuviéramos hablando de muchas consultas en muchas hojas y libros, sería mejor escribir algún código que los recorriera todos e hiciera las modificaciones en una sola vez.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"News" escribió en el mensaje news:

Hola a todos, tengo una gran cantidad de ficheros de Excel que acceden a una
base de datos Informix a través de ODBC.
Recientemente hemos cambiado el servidor y el software ODBC (IBM Informix
Connect).

Ahroa cuando intento actualizar las hojas de cálculo me muestra el siguiente
mensaje:

[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre
del origen de datos y no se especificó ningún controlador predeterminado.


En el sistema está perfectamente configurado el origen de datos, con el
mismo nombre que tenía. De hecho si creo un nuevo fichero puedo acceder a
los datos creando nuevas consultas, pero las que ya están hechas no puedo
abrirlas.

Alguien sabe como solucionar este problema... existe uno y es volver a crear
todos los archivos nuevos, pero... jejeje, son unos cuantos.

Muchas gracias.