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