Как я могу использовать код для экспорта списка SharePoint в Excel

Question

Я нашел предыдущий вопрос, и, похоже, это то, что я ищу.Однако, когда я запускаю код, я получаю сообщение об ошибке отладки (выделяет последнюю строку из "Set ObjMyList . . . . ("A1"))". Ниже приведен код, который я использую с указанным путем и GUID. Я попытался настроить адрес sharepoint, но в списке указантот, который указывает на библиотеку. Я также пробовал только домашний адрес (Остановка в «TEP») и вплоть до включения «All Items.aspx». Я уверен, что мне не хватает чего-то «простого», но я просто подумал, чтопопробую спросить здесь.

Dim objMyList As ListObject
Dim objWksheet As Worksheet 
Dim strSPServer As String


Const SERVER As String = "https://twdc.sharepoint.com/sites/WDPR-dclrecruiting/Test/TEP/Trip%20Event%20Planning%20Library"
Const LISTNAME As String = "{6B39FDF1-29AE-418C-9D99-92293FED5C81}"
Const VIEWNAME As String = "{CCFD1C7F-74CA-4921-A599-628C800C818A}"

strSPServer = "http://" & SERVER & "/_vti_bin"

Set objWksheet = Worksheets.Add

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

Answer 1

Ниже код работает в моем местном

Sub ExportList()
    Dim objWksheet As Worksheet
    Dim strSPServer As String
    Const SERVER As String = "sp/sites/team"
    Const LISTNAME As String = "{3e47ff9c-9aab-4a40-9d6a-c47e9b793484}" 'From source code
    Const VIEWNAME As String = "{67709eda-c975-4669-85e5-d95e263dadc6}" 'From source code

   ' The SharePoint server URL pointing to the SharePoint list to import into Excel.
    strSPServer = "http://" & SERVER & "/_vti_bin"
    Set objWksheet = Sheets("Sheet1")
    ' 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
End Sub