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

Question

最近我正在尝试使用 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 的项目，将 Counterparty Name、CSID 等字段导出到 excel。

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

我是否可以在不使用设计器访问级别的情况下执行此操作？

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

Answer 1

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

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

Const VIEWNAME As String = "Agreement"

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

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

VBA Export SharePoint Items Data to Excel Spreadsheet

excel

sharepoint

vba

sharepoint-2010