访问VBA以打开具有SSO要求的网页
访问VBA以打开具有SSO要求的网页
提问于 2018-12-10 21:11:06
我试图使用一个按钮点击打开一个安全的SharePoint站点上的网页，使用SSO (单点登录)。在Excel中，超链接设置为形状的属性，没有VBA或宏(自动运行Microsoft登录对话框)，但在Access中不适用。我收到错误“无法打开https://company.sharepoint.com/sites/Lean%20Home.aspx。无法下载您所要求的信息。”否则我会得到一个“运行时错误'8‘无法下载您所要求的信息。”
如果在按钮属性超链接区域中设置超链接，则可以打开对话框，单击“书签”，接收文档没有书签的消息，然后超链接工作。它不会通过VBA工作，我也不想通过书签错误来操纵超链接属性对话框。
我的通用代码是：
Private Sub Cmd_ZD_Homepage_Click()
Application.FollowHyperlink "https://company.sharepoint.com/sites/Lean%20Home.aspx"
End Sub我需要在VBA代码中添加什么才能通过网页的SSO部分工作？
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-12-11 03:43:10
我对FollowHyperlink有一些问题，所以使用Windows运行：
Private Sub btnLink_Click()
On Error GoTo ErrProc
'FollowHyperlink is not working properly
''Application.FollowHyperlink Me.tbxLink
Dim wsShell As Object
Set wsShell = CreateObject("WScript.Shell")
wsShell.Run Chr(34) & Me.tbxLink & Chr(34)
Me.Title.SetFocus
ExitProc:
Set wsShell = Nothing
Exit Sub
ErrProc:
MsgBox "Cannot open document. Contact database administrator. : " & Err.Number
End Sub然而，我只是打开PDF文件，而不是一个与SharePoint相关的网页。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/53713700
复制相关文章
相似问题
腾讯云开发者
