Actualización masiva Cadena de conexión de archivo de Excel

Question

¿Hemos cambiado recientemente nuestro servidor de base de datos SQL y me preguntaba si habría una secuencia de comandos o un método más fácil de actualizar todas las cadenas de conexión de archivos de Excel?

Me habría sido mucho más fácil si se utiliza un archivo de conexión, pero por desgracia todo preparado manualmente y tenemos alrededor de 600 informes ...

Cualquier ayuda es muy apreciada.

Gracias

Nick

Answer 1

Sí se puede ... que hacer un programa en C# o vb.net que los bucles throu todos sus documentos 600 y abre los documentos y mediante el uso

oModule = oBook.VBProject.VBComponents.Add(VBIDE.vbext_ComponentType.vbext_ct_StdModule) 
    oModule.CodeModule.AddFromString(sCode) 

y dependiendo de su configuración en la variable sCode tiene una macro que recorra Excel.Connections o

For Each wks In ActiveWorkbook.Worksheets 
     For Each qt In wks.QueryTables 
     With qt 
      .Connection ="myconnstring" 
     End With 
     Next qt 
    Next wks 

Answer 2

Quería hacer exactamente lo mismo y encontré esta herramienta llamada XLODCTool de here.

Enlace de archivo here.

Allos a los que debe cambiar a granel los valores dentro de una cadena de conexión, p.

DSN De SERVERA a SERVERB

Answer 3

basado en la solución Archlight, la macro es la siguiente:

Sub UpdateConnectionsString_Click() 
    For Each wks In ActiveWorkbook.Worksheets 
     For Each qt In wks.QueryTables 
      With qt 
      'Debug.Print .Connection 
      .Connection = Replace(.Connection, "bla.com", "localhost") 
      End With 
     Next qt 
    Next wks 
End Sub