尝试将列表从Sharepoint导入Excel

Question

我正在尝试将Sharepoint列表导入Excel 2010工作表。 下面的代码在2003年有效，但在Excel 2010中不起作用。

Set TempSheet = ThisWorkbook.Sheets.Add
TempSheet.Name = ("TEMP")
Set TempSheet2 = Sheets("TEMP")
TempSheet2.Activate    

------ the code below is the issue ----------------

Dim src(2) As Variant
src(0) = "https://collaborate.statestr.com/sites/CASG/exceptions/_vti_bin/"
src(1) = "{72B6638E-0E7B-4B37-A6A5-3142033E4E02}"
src(2) = "{163702D0-A380-467F-B883-1195F4F40616}"

TempSheet2.ListObjects.Add xlSrcExternal, src, True, xlYes, TempSheet2.Range("A2")

我收到运行时错误消息1004.数据源的初始化失败。

Answer 1

我自己没有遇到过这种情况，但OfficeWriter有一个sharepoint插件，可以将列表中的数据导出到excel工作簿中。见http://www.officewriter.com/sharepoint。免责声明：我没有使用此插件，但我确实在最后一个版本的OfficeWriter上工作。