如何手动传递用户名&；通过Excel VBA代码获取SharePoint 2010列表数据的密码

目标-通过Excel VBA代码将SharePoint列表数据导入Excel

问题-以下代码按预期将列表值加载到Excel中，但我想使用相同的代码手动传递用户名和密码，以便根据需要更改凭据

使用的技术-SharePoint 2010和Excel VBA

完整代码：

Sub RCAFunc()
Dim objMyList As ListObject*emphasized text*
Dim objWksheet As Worksheet
Dim strSPServer As String
Const SERVER As String = "intranet.xyz.com/Ops/RCA/"
Const LISTNAME As String = "{15f4dl02-iz9g-496o-uh9q-6br0984bb9tw}"
Const VIEWNAME As String = "294O2P46-ZC5S-4ETL-BQC9-4I234A4C4025"
' The SharePoint server URL pointing to
' the SharePoint list to import into Excel.
strSPServer = "http://" & SERVER & "/_vti_bin"
' Add a new worksheet to the active workbook.
'Set objWksheet = Worksheets.Add
Set objWksheet = Worksheets("MySheet1")
' Add a list range to the newly created worksheet
' and populated it with the data from the SharePoint list.
Set objMyList = objWksheet.ListObjects.Add(xlSrcExternal, Array(strSPServer, LISTNAME, VIEWNAME), True, , Range("a1"))
Set objMyList = Nothing
Set objWksheet = Nothing

Call MyList1
'MsgBox ("Task Completed!")

End Sub

Sub MyList1()
 Dim wrksht As Worksheet
 Dim objListObj As ListObject

 Set wrksht = ActiveWorkbook.Worksheets("MySheet1")
 Set objListObj = wrksht.ListObjects(1)
 objListObj.Unlist
End Sub

---

谢谢大家!

您没有指定为什么需要它，如果您要使用它将某些数据分发给其他人，那么您可以在sharepoint上设置权限，以便其他人也可以访问这些数据

如果不可能（？），则可以使用OLEDB连接到sharepoint，在其中设置用户凭据

---

但是，如果要分发此文件，而不是将用户名和密码存储在vba纯文本代码中，这是一个非常糟糕的主意。

您没有指定需要此文件的原因，如果要使用此文件将某些数据分发给其他人，则可以在sharepoint上设置权限，以便其他人也可以访问这些数据

如果不可能（？），则可以使用OLEDB连接到sharepoint，在其中设置用户凭据

但是，如果该文件将被分发，而不是将用户名和密码存储在vba纯文本代码中，这是一个非常糟糕的主意。

我发现这表明可以将用户名和密码附加到URL

您还可以通过运行带有凭据的Excel手动提供凭据，因为VBA通常在与应用程序相同的上下文中运行

或者，您可以通过ADO获取数据，ADO应该允许您在连接字符串中设置凭据

我发现，这表明您可以将用户名和密码附加到URL

您还可以通过运行带有凭据的Excel手动提供凭据，因为VBA通常在与应用程序相同的上下文中运行

---

或者，您可以通过ADO获取数据，ADO应该允许您在连接字符串中设置凭据

首先，我无法在服务器端进行任何更改，无法访问。第二，我已经分享了工作代码，请你添加一些代码使用OLEDB连接相同，将是一个很大的帮助。是的，我们希望在VBA中存储凭据，因为Excel将受到密码保护。谢谢Excel密码保护的文档非常不安全，可以轻松打开。我会对此类敏感信息使用文件加密。谢谢，但如何在上述VBA代码中设置用户名和密码以获取SharePoint列表数据？在上面的VBA代码中，我很抱歉您不能，但请检查一下。首先，我不能在服务器端进行任何更改，无法访问。第二，我已经分享了工作代码，请你添加一些代码使用OLEDB连接相同，将是一个很大的帮助。是的，我们希望在VBA中存储凭据，因为Excel将受到密码保护。谢谢Excel密码保护的文档非常不安全，可以轻松打开。我会对此类敏感信息使用文件加密。谢谢，但如何在上述VBA代码中设置用户名和密码以获取SharePoint列表数据？在上面的VBA代码中，我很抱歉你不能，但是请检查一下。