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

从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);
            }
        }
    }
}

---

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