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