ByteScout Barcode Suite – VB.NET – Import from list with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Import from list with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Import-from-list-with-spreadsheet-sdk.pdf

How to import from list with spreadsheet sdk in VB.NET and ByteScout Barcode Suite

Learn to import from list with spreadsheet sdk in VB.NET

Quickly learn how to import from list with spreadsheet sdk in VB.NET with this sample source code. ByteScout Barcode Suite can import from list with spreadsheet sdk. It can be applied from VB.NET. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK).

These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Barcode Suite. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! This basic programming language sample code for VB.NET will do the whole work for you to import from list with spreadsheet sdk.

Our website gives trial version of ByteScout Barcode Suite for free. It also includes 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 System.IO

Module Module1

    Sub Main()
        Const fileName As String = "VBNetImportFromList.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 list As IList = GetList()

        'Import data into spreadheet
        spreadsheet.ImportFromList(list)

        '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 list of planets
    ''' </summary>
    ''' <returns>A list of planets</returns>
    ''' <remarks></remarks>
    Function GetList() As IList

        Dim planets(9, 1) As String

        planets(0, 0) = "Mercury"
        planets(1, 0) = "Venus"
        planets(2, 0) = "Earth"
        planets(3, 0) = "Mars"
        planets(4, 0) = "Jupiter"
        planets(5, 0) = "Saturn"
        planets(6, 0) = "Uranus"
        planets(7, 0) = "Neptune"
        planets(8, 0) = "Pluto"

        Return planets
    End Function

End Module