0

我想遍历 Sharepoint 文档库项目（文件和文件夹以及子文件夹），然后在 Excel 表中打印每个文件夹内容

我的宏中有以下代码

Sub WriteFileProp(mySourcePath As String)

    Dim objMyList As ListObject
    Dim objWksheet As Worksheet
    Dim strSPServer As String
    Dim SERVER As String
    Const LISTNAME As String = "Documents"
    Const VIEWNAME As String = ""
     SERVER = mySourcePath
   ' 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
    ' 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), False, , Range("A1"))

 End Sub

和那个功能

 Dim objFSO As Object
 Dim objFolder As Object
 Dim ObjFile As Object
 Dim SubFolder As Object
 Dim pth As String
 Dim WBn As Workbook
 Dim ObCount As Long
 Dim FileNme As String

 Application.ScreenUpdating = False

 Set objFSO = CreateObject("Scripting.FileSystemObject")

 'Get the folder object associated with the directory
 Set objFolder = objFSO.GetFolder("//S1.S2.S3Portal/Shared%20Documents/")

 Call WriteFileProp("S1.S2.S3Portal.com/")
 'Print main view

For Each SubFolder In objFolder.SubFolders
            Call WriteFileProp(SubFolder.Path)
        Next

一切正常，直到Call WriteFileProp("S1.S2.S3Portal.com/") 之后我循环子文件夹并且路径与提供的 ServerUrl 不兼容

objWksheet.ListObjects.Add(xlSrcExternal, _
        Array(strSPServer, LISTNAME, VIEWNAME), False, , Range("A1"))

即假设第一个子文件夹名称是 Software 它的路径采用以下格式 //S1.S2.S3Portal/Shared%20Documents/Software

但 ListObjects.Add 根据msdn仅接受该格式

strSPServer = http://S1.S2.S3Portal

ListName="文件"

查看=""

无论如何要维护该文档的子文件夹网址。库并使用 ListObjects.Add 或类似函数将它们添加到 excel 工作簿

4

1 回答 1

0

我已经将 GetListItems 与 Soap 查询和 web 服务一起使用来获取列表项，而不是发布的方法

于 2015-06-10T15:34:49.483 回答