Автоматическое обновление Hyperion Smart View с VBA

Question

Может быть, кто-то может помочь мне понять, что я делаю неправильно, потому что я застрял.. В общем, у меня есть процесс, где у меня есть файл.vbs, который запускает файл макроса, который устанавливает соединение с Hyperion и обновляет листы.

По какой-то причине, когда я запускаю этот макрос, он всегда просит ввести учетные данные, даже если я их объявил (что, конечно, нарушает автоматизацию).

В настоящее время у меня есть такой код - две декларации:

Declare Function HypMenuVRefreshAll Lib "HsAddin.dll" () As Long
Declare Function HypConnect Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long

и тогда обновление происходит с такой частью:

Public Sub Connect_OBIEE()

Dim wsSheet As Worksheet


For Each wsSheet In ActiveWorkbook.Worksheets
    x = HypConnect(wsSheet.Name, "<login>", "<password>", "<name of connection>")
Next wsSheet

lngReturn = HypMenuVRefreshAll()

End Sub

Как я могу избежать всплывающего окна подключения, где он снова запрашивает мои учетные данные, которые, если я войду, конечно, будет работать нормально, а затем все идет как мне нужно..

Итак, суть в том, что мой файл VBS, который запускает макрос, должен вводить все автоматически, обновлять файлы, сохранять и закрывать без этих всплывающих окон.

Какие-либо предложения?

Answer 1

Я использовал ваш код в качестве основы и столкнулся с той же проблемой, что и вы. Я исправил, изменив имя сервера. Я использовал синтаксис ниже:

HypConnect("Sheet1", "UserName", "Password", "http://hostname:19000/aps/SmartView%7Cserver name%7CSample%7CBasic")

Затем мне пришлось изменить свой URL-адрес с того, что находится в параметрах SmartView, на тот, который появляется в диалоговом окне, которое запрашивает ваш пароль, который немного отличался

"Servername|Sample|Basic" должен иметь тот же синтаксис, который указан на вашей панели Smart View для ваших недавно использованных подключений.