To download the trial version of EasyXLS Excel Library, press the below button:
If you already own a license key, you may login and download EasyXLS from your account.
Install the downloaded EasyXLS installer for v8.6 or earlier.
Step 2: License file setup
Step required for EasyXLS v9.0 or later.
If you are using a trial, generate a trial license file from EasyXLS trials page. The trial license is valid for 30-days.
If you own a license key, you may login to the account that purchased the license and generate the license file from: https://www.easyxls.com/my-orders
Setup the license file into your project using these guidelines.
Step 3: Create a VB.NET project
If don't have a project, create one as ASP.NET web application, windows forms app, console application, class library or service.
Step 4: Include EasyXLS library into project
EasyXLS.dll must be added as reference to your project. EasyXLS.dll can be found: - Inside the downloaded archive at Step 1 for EasyXLS v9.0 or later - Under installation path for EasyXLS v8.6 or earlier, in "Dot NET version" folder.
Step 5: Run VB.NET code that exports an Excel file with header and footer
Execute the following VB.NET code that exports an Excel file with the header for center section containing the file name and a custom text, header for right section containing the date and time and footer for center section containing the page number and total number of pages.
'-----------------------------------------------------------------
' Tutorial 08
'
' This tutorial shows how to create an Excel file in VB.NET having
' multiple sheets. The first sheet is filled with data
' and the cells are formatted and locked.
' The column header has comments.
' The first sheet has header & footer.
' ----------------------------------------------------------------Imports System.Drawing
Imports EasyXLS
Imports EasyXLS.Constants
Module Tutorial08
Sub Main()
Console.WriteLine("Tutorial 08" & vbCrLf & "----------" & vbCrLf)
' Create an instance of the class that exports Excel files, having two sheetsDim workbook As New ExcelDocument(2)
' Set the sheet names
workbook.easy_getSheetAt(0).setSheetName("First tab")
workbook.easy_getSheetAt(1).setSheetName("Second tab")
' Protect first sheet
workbook.easy_getSheetAt(0).setSheetProtected(True)
' Get the table of data for the first worksheetDim xlsFirstTab As ExcelWorksheet = workbook.easy_getSheetAt(0)
Dim xlsFirstTable = xlsFirstTab.easy_getExcelTable()
' Create the formatting style for the headerDim xlsStyleHeader As New ExcelStyle("Verdana", 8, True, True, Color.Yellow)
xlsStyleHeader.setBackground(Color.Black)
xlsStyleHeader.setBorderColors(Color.Gray, Color.Gray, Color.Gray, Color.Gray)
xlsStyleHeader.setBorderStyles(Border.BORDER_MEDIUM, Border.BORDER_MEDIUM, _
Border.BORDER_MEDIUM, Border.BORDER_MEDIUM)
xlsStyleHeader.setHorizontalAlignment(Alignment.ALIGNMENT_CENTER)
xlsStyleHeader.setVerticalAlignment(Alignment.ALIGNMENT_BOTTOM)
xlsStyleHeader.setWrap(True)
xlsStyleHeader.setDataType(DataType.STRING)
' Add data in cells for report headerFor column As Integer = 0 To 4
xlsFirstTable.easy_getCell(0, column).setValue("Column " & (column + 1))
xlsFirstTable.easy_getCell(0, column).setStyle(xlsStyleHeader)
' Add comment for report header cells
xlsFirstTable.easy_getCell(0, column).setComment("This is column no " & (column + 1))
Next
xlsFirstTable.easy_getRowAt(0).setHeight(30)
' Add data in cells for report valuesFor row As Integer = 0 To 99
For column As Integer = 0 To 4
xlsFirstTable.easy_getCell(row + 1, column).setValue("Data " & (row + 1) & ", " & (column + 1))
Next
Next' Create a formatting style for cellsDim xlsStyleData As New ExcelStyle
xlsStyleData.setHorizontalAlignment(Alignment.ALIGNMENT_LEFT)
xlsStyleData.setForeground(Color.DarkGray)
xlsStyleData.setWrap(False)
xlsStyleData.setDataType(DataType.STRING)
' Protect cells
xlsStyleData.setLocked(True)
xlsFirstTable.easy_setRangeStyle("A2:E101", xlsStyleData)
' Set column widths
xlsFirstTable.setColumnWidth(0, 70)
xlsFirstTable.setColumnWidth(1, 100)
xlsFirstTable.setColumnWidth(2, 70)
xlsFirstTable.setColumnWidth(3, 100)
xlsFirstTable.setColumnWidth(4, 70)
' Add header on center section
xlsFirstTab.easy_getHeaderAt(Header.POSITION_CENTER).InsertSingleUnderline()
xlsFirstTab.easy_getHeaderAt(Header.POSITION_CENTER).InsertFile()
xlsFirstTab.easy_getHeaderAt(Header.POSITION_CENTER).InsertValue(" - How to create header and footer")
' Add header on right section
xlsFirstTab.easy_getHeaderAt(Header.POSITION_RIGHT).InsertDate()
xlsFirstTab.easy_getHeaderAt(Header.POSITION_RIGHT).InsertValue(" ")
xlsFirstTab.easy_getHeaderAt(Header.POSITION_RIGHT).InsertTime()
' Add footer on center section
xlsFirstTab.easy_getFooterAt(Footer.POSITION_CENTER).InsertPage()
xlsFirstTab.easy_getFooterAt(Footer.POSITION_CENTER).InsertValue(" of ")
xlsFirstTab.easy_getFooterAt(Footer.POSITION_CENTER).InsertPages()
' Export Excel file
Console.WriteLine("Writing file C:\Samples\Tutorial08 - header and footer in Excel.xlsx.")
workbook.easy_WriteXLSXFile("C:\Samples\Tutorial08 - header and footer in Excel.xlsx")
' Confirm export of Excel fileDim sError As String = workbook.easy_getError()
If (sError.Equals("")) Then
Console.Write(vbCrLf & "File successfully created. Press Enter to Exit...")
Else
Console.Write(vbCrLf & "Error encountered: " & sError & vbCrLf & "Press Enter to Exit...")
End If' Dispose memory
workbook.Dispose()
Console.ReadLine()
End Sub
End Module