We regularly create and update our sample code library so you may quickly learn line styles in cells with spreadsheet sdk and the step-by-step process in VB.NET. Line styles in cells with spreadsheet sdk in VB.NET can be applied with ByteScout Data Extraction Suite. ByteScout Data Extraction Suite is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.
VB.NET code snippet like this for ByteScout Data Extraction Suite works best when you need to quickly implement line styles in cells with spreadsheet sdk in your VB.NET application. Just copy and paste this VB.NET sample code to your VB.NET application’s code editor, add a reference to ByteScout Data Extraction Suite (if you haven’t added yet) and you are ready to go! VB.NET application implementation mostly involves various stages of the software development so even if the functionality works please check it with your data and the production environment.
On our website you may get trial version of ByteScout Data Extraction Suite for free. Source code samples are included to help you with your VB.NET application.
Imports Bytescout.Spreadsheet Imports Bytescout.Spreadsheet.Constants Imports System.IO Module Module1 Sub Main() ' Create new Spreadsheet Dim document As New Spreadsheet() ' Get worksheet by name Dim worksheet As Worksheet = document.Workbook.Worksheets.Add() ' Number of cell in the first column Dim cellRow As Integer = 0 ' Apply all line styles For Each lineStyle As LineStyle In [Enum].GetValues(GetType(LineStyle)) ' Set current cell Dim currentCell As Cell = worksheet.Cell(cellRow, 0) ' Set border styles currentCell.RightBorderStyle = lineStyle currentCell.LeftBorderStyle = lineStyle currentCell.TopBorderStyle = lineStyle currentCell.BottomBorderStyle = lineStyle ' Print style name currentCell.Value = lineStyle.ToString() ' Choose next row cellRow += 2 Next ' remove output file if already exists If File.Exists("Output.xls") Then File.Delete("Output.xls") End If ' Save document document.SaveAs("Output.xls") ' Close Spreadsheet document.Close() ' open in default spreadsheets viewer/editor Process.Start("Output.xls") End Sub End Module