Sub borraConsultas () Dim intQ As Integer On Error Resume Next For intQ = 1 To 100 ActiveWorkbook.Queries(intQ).Delete ActiveSheet.ListObjects(intQ).Delete Next intQ End Sub ----------------------------------------------------------------- Sub Todo_IBEX35() Dim qtIBEX35 As QueryTable Dim strFormula As String Call borraConsultas strFormula = "let" & vbCrLf & _ " Source = ...
Suscripción
acceso ilimitado a todos los libros de ENI sin compromiso de permanencia
libro impreso o digital online