maybe someone could help me to understand, what I'm doing wrong, as I'm stuck.. In general, I have a process, where I have an .vbs file, that triggers macro file, which makes connection to Hyperion and refreshes sheets.
For some reason, when I'm triggering that macro, it always asks me to enter credentials, even if I've declared them (which of course crushes automation).
Currently I have such code - two declarations:
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">DeclareFunction HypMenuVRefreshAll Lib"HsAddin.dll"()AsLong
DeclareFunction HypConnect Lib"HsAddin"(ByVal vtSheetName AsVariant,ByVal vtUserName AsVariant,ByVal vtPassword AsVariant,ByVal vtFriendlyName AsVariant)AsLong
</code>and then refresh happens with such part:
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">
PublicSub Connect_OBIEE()
Dim wsSheet As Worksheet
ForEach wsSheet In ActiveWorkbook.Worksheets
x = HypConnect(wsSheet.Name,"my_login<login>"</login>,"my_pass","connection_name<name of="" connection="">"</name>)
Next wsSheet
lngReturn = HypMenuVRefreshAll()
End Sub
</code>How can I avoid the connection pop-up window, where it asks again my credentials, which if I will enter, will of course be working fine and then everything goes as I need..
So the general point is here, that my vbs file, that triggers macro, should enter everything automatically, refresh files, save and close, without these popu-ups.
Any suggestions?
For some reason, when I'm triggering that macro, it always asks me to enter credentials, even if I've declared them (which of course crushes automation).
Currently I have such code - two declarations:
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">DeclareFunction HypMenuVRefreshAll Lib"HsAddin.dll"()AsLong
DeclareFunction HypConnect Lib"HsAddin"(ByVal vtSheetName AsVariant,ByVal vtUserName AsVariant,ByVal vtPassword AsVariant,ByVal vtFriendlyName AsVariant)AsLong
</code>and then refresh happens with such part:
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">
PublicSub Connect_OBIEE()
Dim wsSheet As Worksheet
ForEach wsSheet In ActiveWorkbook.Worksheets
x = HypConnect(wsSheet.Name,"my_login<login>"</login>,"my_pass","connection_name<name of="" connection="">"</name>)
Next wsSheet
lngReturn = HypMenuVRefreshAll()
End Sub
</code>How can I avoid the connection pop-up window, where it asks again my credentials, which if I will enter, will of course be working fine and then everything goes as I need..
So the general point is here, that my vbs file, that triggers macro, should enter everything automatically, refresh files, save and close, without these popu-ups.
Any suggestions?
