在日常办公中我们会经常遇到Excel表格,这类型的格式文件可以帮助我们统计数据,并即时地提升办公的效率。而在某些特殊的情况下,改动一个数字都会影响整个数据的真实性,所以很多时候用户需要保证这些数据不被其他人所篡改,这个时候我们就需要把Excel表格进行文件转换,转换成PDF格式的文件。
使用工具: Free
Spire.XLS for .NET(免费版)
程序环境:
本次测试时,在程序中引入 Free
Spire.XLS for .NET。可通过以下方法引用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
具体步骤:
整个 Excel 工作薄转为 PDF
- 创建 Workbook 类的对象。
- 通过 Workbook.LoadFromFile(string fileName) 方法加载 Excel 文档。
- 通过 Workbook.SaveToFile(stringfileName, FileFormat fileFormat) 方法保存为 PDF 到指定路径。
【C#】
using Spire.Xls;
namespace WorkbookToPDF
{
class Program
{
static void Main(string[] args)
{
//创建Workbook类的实例
Workbook workbook = new Workbook();
//加载Excel工作簿
workbook.LoadFromFile("示例.xlsx");
//将整个工作薄保存为PDF
workbook.SaveToFile("ToPDF.pdf", FileFormat.PDF);
}
}
}
【VB.NET】
using Spire.Xls;
namespace WorkbookToPDF
{
class Program
{
static void Main(string[] args)
{
//创建Workbook类的实例
Workbook workbook = new Workbook();
//加载Excel工作簿
workbook.LoadFromFile("示例.xlsx");
//将整个工作薄保存为PDF
workbook.SaveToFile("ToPDF.pdf", FileFormat.PDF);
}
}
}
效果图:
具体步骤:
指定 Excel 工作表转为 PDF
-
创建一个Workbook对象。
-
使用 Workbook.LoadFromFile() 方法加载示例 Excel 文档。
-
通过 ConverterSetting 类下的属性设置 Excel 到 PDF 的转换选项。
- 通过 Workbook.Worksheets[index] 属性获取特定的工作表。
- 使用 Worksheet.SaveToPdf() 方法将工作表保存为 PDF格式。
【C#】
using Spire.Xls;
namespace ConvertWorksheetToPdf
{
class Program
{
static void Main(string[] args)
{
//创建一个Workbook对象
Workbook workbook = new Workbook();
//加载示例 Excel 文档
workbook.LoadFromFile("门店经营情况.xlsx");
//转换时将工作表设置为适应页面
workbook.ConverterSetting.SheetFitToPage = true;
//获取特定的工作表
Worksheet worksheet = workbook.Worksheets[0];
//保存为PDF文件
worksheet.SaveToPdf("WorksheetToPdf.pdf");
}
}
}
【VB.NET】
Imports Spire.Xls
Namespace ConvertWorksheetToPdf
Friend Class Program
Private Shared Sub Main(ByVal args As String())
'创建一个Workbook对象
Dim workbook As Workbook = New Workbook()
'加载示例 Excel 文档
workbook.LoadFromFile("门店经营情况.xlsx")
'转换时将工作表设置为适应页面
workbook.ConverterSetting.SheetFitToPage = True
'获取特定的工作表
Dim worksheet As Worksheet = workbook.Worksheets(0)
'保存为PDF文件
worksheet.SaveToPdf("WorksheetToPdf.pdf")
End Sub
End Class
End Namespace
效果图:
——本文完——