ByteScout Data Extraction Suite – VB.NET – Import from datatable with spreadsheet sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VB.NET – Import from datatable with spreadsheet sdk

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Import-from-datatable-with-spreadsheet-sdk.pdf

How to import from datatable with spreadsheet sdk in VB.NET and ByteScout Data Extraction Suite

If you want to learn more then this tutorial will show how to import from datatable with spreadsheet sdk in VB.NET

The code displayed below will guide you to install an VB.NET app to import from datatable with spreadsheet sdk. 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 and you can use it to import from datatable with spreadsheet sdk with VB.NET.

Want to quickly learn? This fast application programming interfaces of ByteScout Data Extraction Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to import from datatable with spreadsheet sdk. Follow the instructions from scratch to work and copy the VB.NET code. Want to see how it works with your data then code testing will allow the function to be tested and work properly.

ByteScout Data Extraction Suite free trial version is available on our website. VB.NET and other programming languages are supported.

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 System.IO

Module Module1

    Sub Main()
        Const fileName As String = "VBNetImportFromDataTable.xls"

        'Create a new spreadsheet
        Dim spreadsheet As Bytescout.Spreadsheet.Spreadsheet = New Bytescout.Spreadsheet.Spreadsheet

        'Get the data from the 2D array that we want to import
        Dim periodicTable As DataTable = GetDataTable()

        'Import data into spreadheet
        spreadsheet.ImportFromDataTable(periodicTable)

        'Insert row with column captions
        Dim worksheet As Worksheet = spreadsheet.Worksheets(0)
        worksheet.Rows.Insert(0)
        For colIndex As Integer = 0 To periodicTable.Columns.Count - 1
            worksheet.Cell(0, colIndex).Value = periodicTable.Columns(colIndex).Caption
        Next
        
        'Save the spreadsheet
        If (File.Exists(fileName)) Then
            File.Delete(fileName)
        End If
        spreadsheet.SaveAs(fileName)

        'Close spreadsheet
        spreadsheet.Close()

        'Open the spreadsheet
        Process.Start(fileName)
    End Sub



    ''' <summary>
    ''' Creates a data table of the periodic table of elements
    ''' </summary>
    ''' <returns>A data table of the periodic table of elements</returns>
    Function GetDataTable() As DataTable

        Dim periodicTable = New DataTable("PeriodicTable")
        Dim dr As DataRow

        periodicTable.Columns.Add("Name", GetType(String))
        periodicTable.Columns.Add("Symbol", GetType(String))
        periodicTable.Columns.Add("AtomicNumber", GetType(Integer))

        dr = periodicTable.Rows.Add()
        dr(0) = "Hydrogen"
        dr(1) = "H"
        dr(2) = "1"

        dr = periodicTable.Rows.Add()
        dr(0) = "Helium"
        dr(1) = "He"
        dr(2) = "2"

        dr = periodicTable.Rows.Add()
        dr(0) = "Lithium"
        dr(1) = "Li"
        dr(2) = "3"

        dr = periodicTable.Rows.Add()
        dr(0) = "Beryllium"
        dr(1) = "Be"
        dr(2) = "4"

        dr = periodicTable.Rows.Add()
        dr(0) = "Boron"
        dr(1) = "B"
        dr(2) = "5"

        dr = periodicTable.Rows.Add()
        dr(0) = "Carbon"
        dr(1) = "C"
        dr(2) = "6"

        Return periodicTable
    End Function


End Module