Excel文档的摘要通常包括文档标题、作者、所属单位、关键字等信息，自定义属性则可以包含更多附加信息，例如创建时间，联系电话，文档编号等。读者可以从Excel文档属性快速了解该文档的大概主要信息。本文将展示如何使用Spire.XLS为Excel 文档添加摘要和自定义属性，以及如何获取现有文档的文档属性。

添加摘要和自定义属性

//加载Excel文档
 Workbook workbook = new Workbook();
 workbook.LoadFromFile("Test.xlsx");

 //设置摘要
 workbook.DocumentProperties.Author = "Spire.XLS";
 workbook.DocumentProperties.Title = "如何设置Excel摘要";
 workbook.DocumentProperties.Keywords = "Excel摘要，自定义属性";
 workbook.DocumentProperties.Category = "展示文档";
 workbook.DocumentProperties.Company = "成都冰蓝科技有限公司";

 //设置自定义属性
 workbook.CustomDocumentProperties.Add("_MarkAsFinal", true);
 workbook.CustomDocumentProperties.Add("联系电话", 81705109);
 workbook.CustomDocumentProperties.Add("更新时间", DateTime.Now);

 //保存文档
 workbook.SaveToFile("Result.xlsx", FileFormat.Version2010);

'加载Excel文档
Dim workbook As New Workbook()
workbook.LoadFromFile("Test.xlsx")

'设置摘要
workbook.DocumentProperties.Author = "Spire.XLS"
workbook.DocumentProperties.Title = "如何设置Excel摘要"
workbook.DocumentProperties.Keywords = "Excel摘要，自定义属性"
workbook.DocumentProperties.Category = "展示文档"
workbook.DocumentProperties.Company = "成都冰蓝科技有限公司"

'设置自定义属性
workbook.CustomDocumentProperties.Add("_MarkAsFinal", True)
workbook.CustomDocumentProperties.Add("联系电话", 81705109)
workbook.CustomDocumentProperties.Add("更新时间", DateTime.Now)

'保存文档
workbook.SaveToFile("Result.xlsx", FileFormat.Version2010)

获取现有的文档属性

//加载Excel文档
Workbook workbook = new Workbook();
workbook.LoadFromFile("Result.xlsx");

//获取摘要
BuiltInDocumentProperties p = workbook.DocumentProperties;

//获取自定义属性
ICustomDocumentProperties properties = workbook.CustomDocumentProperties;

for (int i = 0; i < properties.Count; i++)
{
    string name = properties[i].Name;
    string value = properties[i].Value as string;

}

'加载Excel文档
Dim workbook As New Workbook()
workbook.LoadFromFile("Result.xlsx")

'获取摘要
Dim p As BuiltInDocumentProperties = workbook.DocumentProperties

'获取自定义属性
Dim properties As ICustomDocumentProperties = workbook.CustomDocumentProperties

For i As Integer = 0 To properties.Count - 1
  Dim name As String = properties(i).Name

  Dim value As String = TryCast(properties(i).Value, String)
Next