ByteScout Barcode Suite – VB.NET – Read number format in cell with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Read number format in cell with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Read-number-format-in-cell-with-spreadsheet-sdk.pdf

How to read number format in cell with spreadsheet sdk in VB.NET using ByteScout Barcode Suite

Learn to code in VB.NET to read number format in cell with spreadsheet sdk with this step-by-step tutorial

The code displayed below will guide you to install an VB.NET app to read number format in cell with spreadsheet sdk. ByteScout Barcode Suite: the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK. It can read number format in cell with spreadsheet sdk in VB.NET.

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Barcode Suite. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Enjoy writing a code with ready-to-use sample codes in VB.NET.

ByteScout provides the free trial version of ByteScout Barcode Suite along with the documentation and source code samples.

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()
document.LoadFromFile("Data.xls")

        ' Get worksheet by name
        Dim worksheet As Worksheet = document.Workbook.Worksheets.ByName("Sample")

        ' Check dates
        For i As Integer = 0 To 7
            For j As Integer = 0 To 1
                ' Set current cell
                Dim currentCell As Cell = worksheet.Cell(i, j)

                ' Get format type
                Dim formatType As NumberFormatType = currentCell.ValueDataTypeByNumberFormatString

                ' Write line
                Console.Write("Cell({0}:{1}) type is {2}. Value : ", i, j, formatType.ToString())

                Select Case formatType
                    Case formatType.DateTime
                        ' Read datetime
                        Dim datm As DateTime = currentCell.ValueAsDateTime

                        ' Write date to console output
                        Console.Write(datm.ToString())
                    Case formatType.General
                        ' Write value to console output
                        Console.Write(currentCell.Value)
                End Select

                Console.WriteLine()

            Next
        Next

        ' Close document
        document.Close()
        Console.ReadKey()

    End Sub

End Module