Convert Each Worksheet of an Excel File to a Different PDF File

				
//**************************************
// Name: Convert Each Worksheet of an Excel File to a Different PDF File 
// Description:This technical tip shows how use Aspose.Cells for converting XLS files (that contain images, charts etc.) to PDF documents. Aspose.Cells for .NET can work independently to convert a spreadsheet to Pdf document and you do not need to use Aspose.Pdf for .NET for the conversion any longer. The conversion does not require to create / use any temporary file(s) too as the whole process can be done in the memory. 
 
If you need to save each worksheet in your template Excel file to generate different pdf files. This can be achieved easily. You may try to hide sheets in the file and make one sheet visible at a time based on which you would render PDFs.
// By: aspose_seo
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8479&lngWId=10//for details.//**************************************

[C#]
 
//Get the Excel file path
string filePath = @"e:\test\Book1.xls";
 
//Instantiage a new workbook and open the Excel
//File from its location
Workbook workbook = new Workbook(filePath);
 
//Get the count of the worksheets in the workbook
int sheetCount = workbook.Worksheets.Count;
 
//Make all sheets invisible except first worksheet
for (int i = 1; i < workbook.Worksheets.Count; i++)
{
 workbook.Worksheets[i].IsVisible = false;
}
 
//Take Pdfs of each sheet
for (int j = 0; j < workbook.Worksheets.Count; j++)
{
Worksheet ws = workbook.Worksheets[j];
workbook.Save("e:\\test2\\worksheet-" + ws.Name + ".pdf");
 
if (j < workbook.Worksheets.Count - 1)
{
workbook.Worksheets[j + 1].IsVisible = true;
workbook.Worksheets[j].IsVisible = false;
}
}
 
[VB]
 
'Get the Excel file path
Dim filePath As String = "e:\test\Book1.xls"
 
'Instantiage a new workbook and open the Excel
'File from its location
Dim workbook As New Workbook(filePath)
 
'Get the count of the worksheets in the workbook
Dim sheetCount As Integer = workbook.Worksheets.Count
 
'Make all sheets invisible except first worksheet
For i As Integer = 1 To workbook.Worksheets.Count - 1
 workbook.Worksheets(i).IsVisible = False
Next i
 	
'Take Pdfs of each sheet
For j As Integer = 0 To workbook.Worksheets.Count - 1
 Dim ws As Worksheet = workbook.Worksheets(j)
 workbook.Save("e:\test2\worksheet-" & ws.Name & ".pdf")
 
 If j < workbook.Worksheets.Count - 1 Then
 workbook.Worksheets(j + 1).IsVisible = True
 workbook.Worksheets(j).IsVisible = False
 End If
Next j