Обновление запросов с помощью VBA и PowerQuery

Question

• 1000 c источник.

Я могу обновить sh запрос по коду:

Sub ref_query()

  Dim wks As Worksheet
  Dim qt As QueryTable
  Dim lo As ListObject

For Each wks In Worksheets
  For Each lo In wks.ListObjects
      With lo.QueryTable
           .BackgroundQuery = False
           .Refresh
      End With
  Next lo
Next wks 

End Sub

Но другому пользователю необходимо записать идентификатор пользователя и пароль в ODB C окно драйверов

Как я могу установить свойства соединения? При обычном подключении я могу сделать:

Sub ref_con()

  Dim conns As Connections
    Dim conn As WorkbookConnection
    Dim uid As String
    Dim pw As String

    uid= "example"
    pw= "abc"

    Dim conn_p As String


    Set conns = Application.ThisWorkbook.Connections

    conn_p = "some connection properties"

For Each conn In conns

            conn.OLEDBConnection.Connection = conn_p 
            conn.Refresh
            End If


    Next conn
End Sub