修订功能可以跟踪文档所有的修改，了解修改的过程，这对于团队协同文档编辑、审阅是非常有用的一个功能。将工作簿发送给他人审阅时，我们可以开启修订功能，共享工作簿被修改后，用户查看文档时可以选择接受或者拒绝他人修改的数据信息。本文将详细为您介绍如何接受或拒绝 Excel 中的修订。
程序环境：
本次测试时，在程序中引入 Spire.XLS.dll 文件。
方法 1：
将FreeSpire.XLS for .NET 下载到本地，解压，找到 BIN 文件夹下的 Spire.XLS.dll。然后在 Visual Studio 中打开“解决方案资源管理器”，鼠标右键点击“引用”，“添加引用”，将本地路径 BIN 文件夹下的 dll 文件添加引用至程序。
方法 2：:
通过NuGet安装。可通过以下 2 种方法安装：
1. 可以在 Visual Studio 中打开“解决方案资源管理器”，鼠标右键点击“引用”，“管理 NuGet 包”，然后搜索“Free Spire.XLS”，点击“安装”。等待程序安装完成。
2. 将以下内容复制到 PM 控制台安装。
Install-PackageFreeSpire.XLS -Version 12.7
接受工作簿中的修订
创建一个 Workbook 对象。
使用 Workbook.LoadFromFile() 方法加载示例 Excel 文档。
调用 Workbook.HasTrackedChanges 属性确认工作簿是否是否含有跟踪修订。
使用 Workbook.AcceptAllTrackedChanges() 方法接受工作簿中的所有修订。
使用 Workbook.SaveToFile() 方法保存结果文档。
完整代码
C#
using Spire.Xls;
namespace AcceptTrackedChanges{ class Program { static void Main(string[] args) { //创建一个Workbook对象 Workbook workbook = new Workbook();
//加载示例文档 workbook.LoadFromFile("示例文档.xlsx");
//确认工作簿是否含有跟踪修订 if (workbook.HasTrackedChanges) {
//接受工作簿中的所有修订 workbook.AcceptAllTrackedChanges(); }
//保存结果文档 workbook.SaveToFile("接受修订.xlsx", FileFormat.Version2013); } }}
复制代码
VB.NET
Imports Spire.Xls
Namespace AcceptTrackedChanges Friend Class Program Private Shared Sub Main(ByVal args As String()) '创建一个Workbook对象 Dim workbook As Workbook = New Workbook()
'加载示例文档 workbook.LoadFromFile("示例文档.xlsx")
'确认工作簿是否含有跟踪修订 If workbook.HasTrackedChanges Then
'接受工作簿中的所有修订 workbook.AcceptAllTrackedChanges() End If
'保存结果文档 workbook.SaveToFile("接受修订.xlsx", FileFormat.Version2013) End Sub End ClassEnd Namespace
复制代码
效果图
拒绝工作簿中的修订
创建一个 Workbook 对象。
使用 Workbook.LoadFromFile() 方法加载示例 Excel 文档。
调用 Workbook.HasTrackedChanges 属性确认工作簿是否含有跟踪修订。
使用 Workbook.RejectAllTrackedChanges()方法拒绝所有修订。
使用 Workbook.SaveToFile() 方法保存结果文档。
完整代码
C#
using Spire.Xls;
namespace AcceptTrackedChanges{ class Program { static void Main(string[] args) { //创建一个Workbook对象 Workbook workbook = new Workbook();
//加载示例 Excel 文档 workbook.LoadFromFile("示例文档.xlsx");
//确认工作簿是否含有跟踪修订 if (workbook.HasTrackedChanges) {
//拒绝所有修订 workbook.RejectAllTrackedChanges(); }
//保存结果文档 workbook.SaveToFile("拒绝修订.xlsx", FileFormat.Version2013); } }}
复制代码
VB.NET
Imports Spire.Xls
Namespace AcceptTrackedChanges Friend Class Program Private Shared Sub Main(ByVal args As String()) '创建一个Workbook对象 Dim workbook As Workbook = New Workbook()
'加载示例 Excel 文档 workbook.LoadFromFile("示例文档.xlsx")
'确认工作簿是否含有跟踪修订 If workbook.HasTrackedChanges Then
'拒绝所有修订 workbook.RejectAllTrackedChanges() End If
'保存结果文档 workbook.SaveToFile("拒绝修订.xlsx", FileFormat.Version2013) End Sub End ClassEnd Namespace
复制代码
效果图
—本文完—
评论