访问 VBA 以打开具有 SSO 要求的网页

Question

我正在尝试使用 SSO（单点登录）单击按钮打开安全 SharePoint 网站上的网页。这在 Excel 中有效，超链接设置为指向形状的属性并且没有 VBA 或宏（自动运行 Microsoft 登录对话框），但在 Access 中无效。我收到错误 "Unable to open https://company.sharepoint.com/sites/Lean%20Home.aspx. Cannot download the information you requested." 或者我收到 "Run-time Error '8' Cannot download the information you requested."

如果我在按钮属性超链接区域设置超链接，我可以打开对话框，点击"bookmark"，收到文档没有书签的消息，然后超链接就可以工作了。它不会通过 VBA 工作，我不想通过书签错误来操纵超链接属性对话框工作。

我的通用代码是：

Private Sub Cmd_ZD_Homepage_Click()

  Application.FollowHyperlink "https://company.sharepoint.com/sites/Lean%20Home.aspx"

End Sub

我需要在 VBA 代码中添加什么才能完成网页的 SSO 部分？

Answer 1

我在使用 FollowHyperlink 时遇到了一些问题，所以使用 Windows Shell 到运行:

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 关联的网页。

访问 VBA 以打开具有 SSO 要求的网页

Access VBA to open webpage with SSO requirement

ms-access

webpage

vba

single-sign-on