1

我需要从 SharePoint 列表中获取数据。我遇到了下面的代码，我尝试了许多不同的 url 组合等。但我不断得到

“运行时错误 1004”“应用程序定义或对象定义错误”</p>

我对使用 SharePoint 2010 和 Excel 2010 的网站拥有完全的管理员权限

这是我找到的代码：

Sub ImportSharePointList()
    Dim objMyList As ListObject
    Dim objWksheet As Worksheet
    Dim strSPServer As String
    Const SERVER As String = "xxx.xxx.net/sites/tss_PP/Lists"
    Const LISTNAME As String = "{F915A40C-0394-418C-AB90-xxxxxxxxxxxxx}"
    Const VIEWNAME As String = ""
   ' The SharePoint server URL pointing to
   ' the SharePoint list to import into Excel.
    strSPServer = "https://" & SERVER & "/_vti_bin"
    ' Add a new worksheet to the active workbook.

    Set objWksheet = ActiveSheet


     Set objMyList = objWksheet.ListObjects.Add(xlSrcExternal, _
        Array(strSPServer, LISTNAME, VIEWNAME), True, , Range("A2"))

    Set objMyList = Nothing
    Set objWksheet = Nothing
End Sub

任何帮助都会很棒，只是一个注释我已经尝试过这个有和没有视图名称

4

1 回答 1

1

如果我将变量设置如下，您的代码在这里运行良好（Excel 2010，SHP-2007）：

Const SERVER As String = "shp.myserver.myorg/sites/[mainsite]/[subsite]"
Const LISTNAME As String = "Country" ' real List name
Const VIEWNAME As String = ""

服务器：我不包含 /List 或任何其他后缀，只包含子站点级别

在此处输入图像描述

于 2013-10-01T08:43:51.510 回答