VBA 将 SharePoint 项目数据导出到 Excel 电子表格答案

【问题标题】：VBA Export SharePoint Items Data to Excel SpreadsheetVBA 将 SharePoint 项目数据导出到 Excel 电子表格
【发布时间】：2016-04-01 03:32:12
【问题描述】：

最近我正在尝试使用 VBA 将 SharePoint 上每个列表项中的数据导出到 Excel。下面是列表。

如果你点击每一个，它看起来像：

所以我划掉的数据是我希望它们导出到 Excel 电子表格的值。

我知道如何将整个列表导出到excel，代码是：

Sub ImportSharePointData()

    Dim objMyList As ListObject
    Dim objWksheet As Worksheet
    Const SPServer As String = "http://ln-   sharepoint.XXXintra.net/XXX/XXX/XXX/_vti_bin"
    Const LISTNAME As String = "{06AAB69F-XXX-XXX-XXX-8F677FE38D76}"
    Const VIEWNAME As String = "Agreement"
    ActiveSheet.ListObjects.Add SourceType:=xlSrcExternal, Source:= _
    Array(SPServer, VIEWNAME, LISTNAME), LinkSource:=True, Destination:=Range("A1")

End Sub

现在我想要此列表中每个单独项目中的数据，例如ID 为 367 的项目，将交易对手名称、CSID 等字段导出到 Excel。

此外，这些数据似乎是由用户填写到 SharePoint 上使用 InfoPath 设计的表单中的。

有没有我可以在不使用设计器级别的访问权限的情况下做到这一点？

非常感谢您提供任何解决方案或建议。

【问题讨论】：

标签： vba excel sharepoint sharepoint-2010

【解决方案1】：

只要 InfoPath 表单上的所需字段与 SharePoint 列直接关联，数据就可以显示和导出。

请注意，您在将列表导出到 Excel 时指定了所需的视图。

Const VIEWNAME As String = "Agreement"

考虑到这一点，只需创建一个新的列表公共视图，以显示您要导出的所有数据列。然后导出该列表视图。

【讨论】：

谢谢Thriggle~！我怎么没想到呢~！我一直在尝试所有的编码方法，但不知何故错过了这种直截了当的方法。非常感谢。