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

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

printable version:
ByteScout-Data-Extraction-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 Data Extraction Suite

This code in VB.NET shows how to read number format in cell with spreadsheet sdk with this how to tutorial

Sample source code below will display you how to manage a complex task like read number format in cell with spreadsheet sdk in VB.NET. ByteScout Data Extraction Suite can read number format in cell with spreadsheet sdk. It can be applied from VB.NET. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.

The SDK samples given below describe how to quickly make your application do read number format in cell with spreadsheet sdk in VB.NET with the help of ByteScout Data Extraction Suite. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Applying VB.NET application mostly includes various stages of the software development so even if the functionality works please test it with your data and the production environment.

ByteScout provides the free trial version of ByteScout Data Extraction 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