修订功能可以跟踪文档所有的修改,了解修改的过程,这对于团队协同文档编辑、审阅是非常有用的一个功能。将工作簿发送给他人审阅时,我们可以开启修订功能,共享工作簿被修改后,用户查看文档时可以选择接受或者拒绝他人修改的数据信息。本文将详细为您介绍如何接受或拒绝 Excel 中的修订。
程序环境:
本次测试时,在程序中引入
Spire.XLS.dll 文件。
方法1:
将Free
Spire.XLS for .NET 下载到本地,解压,找到 BIN 文件夹下的 Spire.XLS.dll。然后在 Visual Studio 中打开“解决方案资源管理器”,鼠标右键点击“引用”,“添加引用”,将本地路径 BIN 文件夹下的 dll 文件添加引用至程序。
方法2::
通过NuGet安装。可通过以下 2 种方法安装:
1. 可以在 Visual Studio 中打开“解决方案资源管理器”,鼠标右键点击“引用”,“管理
NuGet 包”,然后搜索“Free Spire.XLS”,点击“安装”。等待程序安装完成。
2. 将以下内容复制到 PM 控制台安装。
Install-Package
FreeSpire.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 Class
End 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 Class
End Namespace
效果对比图
—本文完—