从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 SubAdd-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); } } } }
欢迎访问《许阳的红泥屋》