ByteScout Data Extraction Suite – VB.NET – Line styles in cells with spreadsheet sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VB.NET – Line styles in cells with spreadsheet sdk

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Line-styles-in-cells-with-spreadsheet-sdk.pdf

line styles in cells with spreadsheet sdk in VB.NET and ByteScout Data Extraction Suite

line styles in cells with spreadsheet sdk in VB.NET

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.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Module1.vb

      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