ByteScout Spreadsheet SDK – VB.NET – Merge Two Documents

Home
/
Articles
/
ByteScout Spreadsheet SDK – VB.NET – Merge Two Documents

printable version:
ByteScout-Spreadsheet-SDK-VB-NET-Merge-Two-Documents.pdf

How to merge two documents in VB.NET using ByteScout Spreadsheet SDK

Tutorial on how to merge two documents in VB.NET

Source code documentation samples provide quick and easy way to add a required functionality into your application. ByteScout Spreadsheet SDK is the SDK to create, read, modify and calculate spreadsheets. Formula calculations are supported, import and export to and from JSON, CSV, XML, databases, arrays and you can use it to merge two documents with VB.NET.

VB.NET code samples for VB.NET developers help to speed up coding of your application when using ByteScout Spreadsheet SDK. Just copy and paste the code into your VB.NET application’s code and follow the instruction. Further enhancement of the code will make it more vigorous.

Free trial version of ByteScout Spreadsheet SDK is available for download from our website. Get it to try other 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 System
Imports System.Collections.Generic
Imports System.Text
Imports Bytescout.Spreadsheet
Imports System.Diagnostics
Imports System.IO

Module Module1

    Sub Main()
        ' Open existing Spreadsheets
        Dim document1 As New Spreadsheet()
	document1.LoadFromFile("workbook1.xls")

        Dim document2 As New Spreadsheet()
	document2.LoadFromFile("workbook2.xls")

        ' Create output document
        Dim document3 As New Spreadsheet()

        ' Add new worksheet
        document3.Workbook.Worksheets.Add()

        ' Target row
        Dim targetRow As Integer = 0
        For i As Integer = 0 To 9

            ' Copy cells from first document
            For j As Integer = 0 To 11
                document3.Worksheet(0).Cell(targetRow, j).Value = document1.Worksheet(0).Cell(i, j).Value
            Next
            targetRow += 1
        Next
        For i As Integer = 0 To 9

            ' Copy cells from second document
            For j As Integer = 0 To 11
                document3.Worksheet(0).Cell(targetRow, j).Value = document2.Worksheet(0).Cell(i, j).Value
            Next
            targetRow += 1
        Next


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

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

        ' Close Spreadsheet
        document3.Close()

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

End Module