Refresh specific power queries within workbook

[JILBO]

Hi,

Wondering if anyone has figured out how delete specific queries in a workbook?

The below deletes all, but I want to remove a specific one as well before

Public Sub RemoveQueries()

'Removes all PowerQueries from Workbook
Dim cn As WorkbookConnection
Dim qr As WorkbookQuery
    On Error Resume Next
    For Each cn In ThisWorkbook.Connections
        cn.Delete
    Next
    For Each qr In ThisWorkbook.Queries
        qr.Delete
    Next
End Sub

PS: See Post $4. st

[SamT]

Sub WhichQueiries()
Dim qr As WorkbookQuery
Dim Rw as Long
Rw = 1

Sheets.Add Name = "Query Names"

With Sheets("Query Names")
   For Each qr In ThisWorkbook.Queries
      Rw = Rw + 1
      .Cells(Rw, 1) = qr.Name
      .Cells(Rw, 2) = qr.Parent
      .Cells(Rw, 3) = qr.Formula
      .Cells(Rw, 4) = qr.Description
   Next
End With
End Sub

You should be able to delete Queries by Name: ThisWorkbook.Queries("Name").Delete

You should also be able to use any property with an If...Then:

If qr.Formula = "let Source = Blah, Blah, Blah" Then
   qr.Delete
End If

[JILBO]

Thanks for the reply, I’m going to give that a go and see how inget
on !!

[JILBO]

Ok that works a treat, on another related question how do you run just specific workbook Power Queries as well (Instead of just all of them at once) ???

[SamT]

I don't do queries, but I thimk you refresh that Query's connection