Aporta tus macros y códigos Excel de interés para la comunidad.
Reglas del Foro
Este foro no es para hacer preguntas!
Este foro solo es para que aportes algo de interés para la comunidad.
(para preguntas vuelve al índice y busca los foros de "Tus Preguntas a la Comunidad")
por TodoExcel » 11 Dic 2011 18:38
Si quieres eliminar todas las conexiones de datos externas de un libro puedes usar esta macro:
- Código: Seleccionar todo
Public Sub RemoveQueries()
Dim ws As Worksheet
Dim qt As QueryTable
For Each ws In ThisWorkbook.Worksheets
For Each qt In ws.QueryTables
qt.Delete
Next qt
Next ws
'Delete the Data Connections to alleviate warning message.
If ActiveWorkbook.Connections.Count > 0 Then
For i = 1 To ActiveWorkbook.Connections.Count
ActiveWorkbook.Connections.Item(1).Delete
Next i
Else
MsgBox ActiveWorkbook.Connections.Count
End If
End Sub
Salu2.xls
-
TodoExcel
- Manager Exceluciones
-
- Registrado: 05 Jun 2004 16:05
Volver a Macros, programación y códigos
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado
