在 Sharepoint 站点中发布 Excel 工作簿

我有一个 Excel 工作簿，我需要使用 Excel VBA 在 SharePoint 网站中发布它。所以我使用以下代码在模块中创建了一个方法：

Private sc_Lists As SoapClient30

Public c_WSDL_URL As String

Private Const c_SERVICE As String = "Lists"

Private Const c_PORT As String = "ListsSoap"

Private Const c_SERVICE_NAMESPACE As String = "http://schemas.microsoft.com/sharepoint/soap/"


Private Sub Class_Initialize()

    Dim str_WSML As String
    str_WSML = ""
    Set sc_Lists = New SoapClient30
    c_WSDL_URL = glb_URL

    sc_Lists.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE

    sc_Lists.ConnectorProperty("WinHTTPAuthScheme") = &H1
    sc_Lists.ConnectorProperty("UseSSL") = True
    sc_Lists.ConnectorProperty("AuthUser") = "username"
    sc_Lists.ConnectorProperty("AuthPassword") = "pass"

End Sub 

问题是，当我打开 Excel 文档并尝试发布它时，它会要求提供我的 SharePoint 网站的凭据，即使我已在代码中提供了这些凭据（如上面所示）。我需要的是防止在发布时询问凭据。

我在尝试使用 VBA 推送到 SP 时遇到了身份验证问题；它只是脆弱和挑剔。我在工作中使用的一种解决方案是将 SP 站点映射为网络驱动器，然后直接保存文件（就像这个 UC 教程一样） https://answers.uchicago.edu/page.php?id=32514，从而避免了这个问题。