Необходимо изменить строку подключения для передачи данных в Power BI в Excel VBA

Question

У меня есть книга Excel, связанная с открытым файлом Power BI. Имя соединения - "mtbsql6??v-dev_mssqlinst01 PRS Model", а строка соединения -

"Provider=MSOLAP.8;Integrated Security=SSPI;Persist Security Info=True;User ID="";Initial Catalog=2a527000-c71f-4b0d-8506-36d1799ec663;Data Source=localhost:6514?;Location=localhost:6514?;MDX Compatibility=1;Safety Options=2;MDX Missing Member Mode=Error;Update Isolation Level=2".

Мне нужно обновить номер локального хоста, который у меня уже есть в переменной. Это соединение OLEDB? Попробовал приведенный ниже код, но это не удалось. Получил этот код из другого ответа о переполнении стека. Ошибка на линии, помеченной как ##.

 Dim ConnectionString As String
    ConnectionString = UpdatedString (This is stored in a variable)
    UpdateQueryConnectionString ConnectionString


Sub UpdateQueryConnectionString(ConnectionString As String)

  Dim cn As WorkbookConnection
  Dim oledbCn As OLEDBConnection
  Set cn = ThisWorkbook.Connections("mtbsql6??v-dev_mssqlinst01 PRS Model")
  Set oledbCn = cn.OLEDBConnection
  oledbCn.Connection = ConnectionString ###

End Sub

Спасибо за любую помощь.

Answer 1

Вы не упомянули, в чем заключалась ошибка ... Может ли это быть кавычками после идентификатора пользователя в строке подключения?

updatedString = "Provider = MSOLAP.8; Интегрированная безопасность = SSPI; Постоянная безопасность Info = True; ID пользователя = " & chr (34) & chr (34) & "; Начальный каталог = 2a527000-c71f-4b0d-8506-36d1799ec663; Источник данных = localhost: 6514?; Расположение = localhost: 6514?; Совместимость с MDX = 1; Параметры безопасности = 2; Режим отсутствия элемента MDX = Ошибка; Уровень изоляции обновления = 2 "