ByteScout Barcode Suite – VB.NET – Copypaste columns with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VB.NET – Copypaste columns with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VB-NET-Copypaste-columns-with-spreadsheet-sdk.pdf

How to copypaste columns with spreadsheet sdk in VB.NET with ByteScout Barcode Suite

Step-by-step tutorial on how to copypaste columns with spreadsheet sdk in VB.NET

The sample source codes on this page shows how to copypaste columns with spreadsheet sdk in 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) and you can use it to copypaste columns with spreadsheet sdk with VB.NET.

The SDK samples given below describe how to quickly make your application do copypaste columns with spreadsheet sdk in VB.NET with the help of ByteScout Barcode Suite. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

ByteScout provides the free trial version of ByteScout Barcode 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)

Program.vb

      Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.IO
Imports System.Text
Imports Bytescout.Spreadsheet

Class Program
	Friend Shared Sub Main(args As String())
		' Open spreadsheet from file
		Dim document As New Spreadsheet()
		document.LoadFromFile("example.xls")
		' document.LoadFromFile(@"d:\2\1\Bytescout\Spreadsheet SDK\TestCase\Formats.xls")

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

		' Copy first two ("A-B") columns to the fourth ("D") column
		worksheet.Columns.CopyAndPaste(0, 1, 12)

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

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

		' Close spreadsheet
		document.Close()

		' Open generated XLS document in default program
		Process.Start("changed.xls")
	End Sub
End Class