ByteScout Barcode Suite – VB.NET – Add columns into existing spreadsheet with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Add columns into existing spreadsheet with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Add-columns-into-existing-spreadsheet-with-spreadsheet-sdk.pdf

How to add columns into existing spreadsheet with spreadsheet sdk in VB.NET and ByteScout Barcode Suite

Learn to add columns into existing spreadsheet with spreadsheet sdk in VB.NET

Every ByteScout tool includes simple example VB.NET source codes that you can get here or in the folder with installed ByteScout product. ByteScout Barcode Suite: the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK). It can add columns into existing spreadsheet with spreadsheet sdk in VB.NET.

This prolific sample source code in VB.NET for ByteScout Barcode Suite contains various functions and other necessary options you should do calling the API to add columns into existing spreadsheet with spreadsheet sdk. Follow the instructions from scratch to work and copy the VB.NET code. Complete and detailed tutorials and documentation are available along with installed ByteScout Barcode Suite if you’d like to learn more about the topic and the details of the API.

You can download free trial version of ByteScout Barcode Suite from our website to see and try many others source code samples for VB.NET.

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

Module Module1

    Sub Main()
        ' Open Spreadsheet
        Dim document As New Spreadsheet()
       document.LoadFromFile("AdvancedReport.xls")

        ' Get Worksheet
        Dim worksheet As Worksheet = document.Workbook.Worksheets(0)

        ' Add new Column
        worksheet.Columns.Insert(3, 1)

        ' Set values
        worksheet.Rows(0)(2).Value = "Age"

        ' remove output file if already exists
        If File.Exists("Output.xls") Then
            File.Delete("Output.xls")
        End If

        ' Save document
        document.SaveAs("Output.xls")

        ' Close Spreadsheet
        document.Close()

        ' open in default spreadsheets viewer/editor
        Process.Start("Output.xls")
    End Sub

End Module