Excel Jetcell .NET component - C# / VB.NET Examples & Samples Code

Imports Docs.Excel

Module Module1

Sub Main()

' TODO: If using Excel Jetcell .NET Full Version, put YOUR-LICENSE-CODE below.
        ' Otherwise, if you are using Excel Jetcell .NET Trial, comment out the following line
        ' (Free version doesn't have LicenseCode method). 
        ' Docs.Excel.ExcelWorkbook.SetLicenseCode("YOUR-LICENSE-CODE");

Dim WBook = ExcelWorkbook.ReadXLS("..\..\..\TemplateExcelFile.xls")

WBook.Worksheets(0).Cells(11, 4).Value = 22606
        WBook.Worksheets(0).Cells(11, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(11, 5).Value = 0.02
        WBook.Worksheets(0).Cells(12, 4).Value = 25970
        WBook.Worksheets(0).Cells(12, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(12, 5).Value = 0.03
        WBook.Worksheets(0).Cells(15, 4).Value = 27590
        WBook.Worksheets(0).Cells(15, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(15, 5).Value = 0.02
        WBook.Worksheets(0).Cells(16, 4).Value = 30630
        WBook.Worksheets(0).Cells(16, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(16, 5).Value = 0.05
        WBook.Worksheets(0).Cells(17, 4).Value = 30670
        WBook.Worksheets(0).Cells(17, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(17, 5).Value = 0.07
        WBook.Worksheets(0).Cells(18, 4).Value = 30710
        WBook.Worksheets(0).Cells(18, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(18, 5).Value = 0.015
        WBook.Worksheets(0).Cells(19, 4).Value = 31210
        WBook.Worksheets(0).Cells(19, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(19, 5).Value = 0.05
        WBook.Worksheets(0).Cells(22, 4).Value = 34320
        WBook.Worksheets(0).Cells(22, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(22, 5).Value = 0.03
        WBook.Worksheets(0).Cells(23, 4).Value = 37440
        WBook.Worksheets(0).Cells(23, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(23, 5).Value = 0.02
        WBook.Worksheets(0).Cells(24, 4).Value = 37940
        WBook.Worksheets(0).Cells(24, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(24, 5).Value = 0.02
        WBook.Worksheets(0).Cells(27, 4).Value = 29550
        WBook.Worksheets(0).Cells(27, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(27, 5).Value = 0.01
        WBook.Worksheets(0).Cells(28, 4).Value = 32580
        WBook.Worksheets(0).Cells(28, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(28, 5).Value = 0.01
        WBook.Worksheets(0).Cells(29, 4).Value = 32630
        WBook.Worksheets(0).Cells(29, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(29, 5).Value = 0.075
        WBook.Worksheets(0).Cells(30, 4).Value = 34900
        WBook.Worksheets(0).Cells(30, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(30, 5).Value = 0.08
        WBook.Worksheets(0).Cells(31, 4).Value = 32666
        WBook.Worksheets(0).Cells(31, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(31, 5).Value = 0.03
        WBook.Worksheets(0).Cells(32, 4).Value = 35700
        WBook.Worksheets(0).Cells(32, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(32, 5).Value = 0.055
        WBook.Worksheets(0).Cells(33, 4).Value = 38016
        WBook.Worksheets(0).Cells(33, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(33, 5).Value = 0.02
        WBook.Worksheets(0).Cells(34, 4).Value = 37833
        WBook.Worksheets(0).Cells(34, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(34, 5).Value = 0.025
        WBook.Worksheets(0).Cells(35, 4).Value = 36200
        WBook.Worksheets(0).Cells(35, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(35, 5).Value = 0.04
        WBook.Worksheets(0).Cells(36, 4).Value = 38333
        WBook.Worksheets(0).Cells(36, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(36, 5).Value = 0.07
        WBook.Worksheets(0).Cells(37, 4).Value = 36250
        WBook.Worksheets(0).Cells(37, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(37, 5).Value = 0.075
        WBook.Worksheets(0).Cells(38, 4).Value = 38516
        WBook.Worksheets(0).Cells(38, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(38, 5).Value = 0.03
        WBook.Worksheets(0).Cells(41, 4).Value = 35683
        WBook.Worksheets(0).Cells(41, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(41, 5).Value = 0.01
        WBook.Worksheets(0).Cells(42, 4).Value = 35733
        WBook.Worksheets(0).Cells(42, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(42, 5).Value = 0.04
        WBook.Worksheets(0).Cells(43, 4).Value = 38000
        WBook.Worksheets(0).Cells(43, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(43, 5).Value = 0.05
        WBook.Worksheets(0).Cells(44, 4).Value = 41116
        WBook.Worksheets(0).Cells(44, 4).Style.StringFormat = "# ###.00"
        WBook.Worksheets(0).Cells(44, 5).Value = 0.035

'XLS
        WBook.WriteXLS("..\..\..\ExcelExample.xls")

'XLSX
        WBook.WriteXLSX("..\..\..\ExcelExample.xlsx")

'Open specified file in MS Excel.
        System.Diagnostics.Process.Start("..\..\..\ExcelExample.xlsx")

End Sub

End Module