从SharePoint 2010网站上导出list的方法

我们可从SharePoint网站上导出iqy文件然后把iqy文件导入Excel。还有我们可以用VBA来做这个事情，代码如下：

Sub ImplementSharePointList()    Dim HomeAddress As String    Dim ListID As String    Dim ViewID As String    Dim SourceAddress As String        HomeAddress = "http://****/sites/****/****"    SourceAddress = HomeAddress & "/_vti_bin"    'ListID 必选。是你所选List的ID   ListID = "{********-****-****-****-************}"    'ViewID 可选，也可以用用 “ViewID = ""”来代替    ViewID = "{********-****-****-****-************}"    ActiveSheet.ListObjects.Add xlSrcExternal, Source:=Array(SourceAddress, _        ListID, ViewID), LinkSource:=True, Destination:=Range("A1")End Sub

Add-in代码

using System;using System.Collections.Generic;using System.Linq;using System.Text;using Microsoft.Office.Tools.Ribbon;using Excel = Microsoft.Office.Interop.Excel;using System.Windows.Forms;namespace ExcelAddIn1{    public partial class Ribbon1    {        private void Ribbon1_Load(object sender, RibbonUIEventArgs e)        {        }        private void button1_Click(object sender, RibbonControlEventArgs e)        {            Excel.Application xlApp = Globals.ThisAddIn.Application;            Excel.Workbook xlWorkbook = xlApp.ActiveWorkbook;            Excel.Worksheet xlWorksheet = xlWorkbook.ActiveSheet;            string SharePointHomeAddress = "http://*****/sites/****/****";            string ListAddress = SharePointHomeAddress + "/_vti_bin";            string ListID = "{********-****-****-****-************}";            string ViewID = "";            //ViewID = "{********-****-****-****-************}";            try            {                xlWorksheet.ListObjects.Add(SourceType: Excel.XlListObjectSourceType.xlSrcExternal,                Source: new object[] { ListAddress, ListID, ViewID }, LinkSource: true,                Destination: xlWorksheet.Range["A1"]);            }            catch (Exception ex)            {                MessageBox.Show(ex.Message);            }        }    }}

---

欢迎访问《许阳的红泥屋》