How to refresh workbook query assiociated with PowerQuery based on query name?

Hi,

i want to refresh specific workbook query based on its name:

Sub RefreshAllOutputQueries()

    Dim wbQr As WorkbookQuery

    For Each wbQr In ThisWorkbook.Queries
        If wbQr.Name Like "*Out" Then
            wbQr.Refresh False
        End If
    Next wbQr

End Sub

but it is failing. How can i do this?
Best,
Jacek

Thank you,

i will try.
So this is not possible from query name go to connection name or i have to create string manually with this "Query - " as first word?

Best,
Jacek

What if connection name is changed?

This will work only if you assume that connection name is a default power query name.

Best,
Jacek

Thanks Bo_Ry,

sorry for honesty.
This is my full question.

I am not using connections just queries names and figuring out if this is possible to refresh WorkbookQuery based on its name not referring to connections. Or how to refer to connection from workbook query and refresh it?
It is not working for me because i have different connections names then "Query - " + name as PQ from default created.

Thank you for help,
Best,
Jacek

Hi Guys,

i have bad news.
I thik that looping through Workbook.queries object has no possiblity to refer to query table and refresh.
It is better to use for loop and loop with all listobjects and query tables...

Best,
Jacek

Hi Rory,

thanks.
I have noticed it. But how could i still refresh OLEDBConnection refering to workbook query name only?
I have to locate where this query is from listobject i think.

Jacek

thanks Rory,

what i have only is:

Creator, Description, Formula and Name of workbookQuery.

Screenshot_164.png

i do not have oledb connection atribute.

Best,
Jacek

Yes exactly.

Sub RefreshAllOutputQueries()

    Dim wbQr As WorkbookQuery

    For Each wbQr In ThisWorkbook.Queries
        If wbQr.Name Like "*Out" Then
            wbQr.Refresh False
        End If
    Next wbQr

End Sub

i am looping with workbookqueries so only way to get to this is looping through workbook connections?

Best,
Jacek

Ok,

thank you Guys for help and support.
Best,
Jacek