4
我有一個Excel工作簿,需要使用Excel VBA將其發佈到SharePoint網站中。在Sharepoint站點發布Excel工作簿
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網站的憑據:所以我用下面的代碼創建了一個模塊中的方法在代碼中可以看到上面的內容。我需要的是防止在發佈時詢問憑據。