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

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

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

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

Learning is essential in computer world and the tutorial below will demonstrate how to import from jagged array with spreadsheet sdk in VB.NET

ByteScout simple and easy to understand tutorials are planned to describe the code for both VB.NET beginners and advanced programmers. ByteScout Data Extraction Suite: 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. It can import from jagged array with spreadsheet sdk in VB.NET.

The following code snippet for ByteScout Data Extraction Suite works best when you need to quickly import from jagged array with spreadsheet sdk in your VB.NET application. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Further improvement of the code will make it more robust.

Trial version of ByteScout Data Extraction Suite is available for free. Source code samples are included to help you with your VB.NET app.

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 = "VBNetImportFromJaggedArray.xls"

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

        'Get the data from the jagged array that we want to import
        Dim periodicTable()() As String = GetJaggedArray()

        'Import data into spreadheet
        spreadsheet.ImportFromJaggedArray(periodicTable)

        '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 jagged array of the period table of elements
    ''' </summary>
    ''' <returns>Jagged array of the periodic table of elements</returns>
    Function GetJaggedArray() As String()()

        Dim periodicTable()() As String = New String()() { _
            New String() {"H", "He"}, _
            New String() {"Li", "Be", "B", "C", "N", "O", "F", "Ne"}, _
            New String() {"Na", "Mg", "Al", "Si", "P", "S", "Cl", "Ar"}, _
            New String() {"K", "Ca", "Sc", "Ti", "V", "Cr", "Mn", "Fe", "Co", "Ni", "Cu", "Zn", "Ga", "Ge", "As", "Se", "Br", "Kr"}}

        Return periodicTable
    End Function

End Module