ByteScout Spreadsheet SDK - VB.NET - Merge Two Documents - ByteScout

ByteScout Spreadsheet SDK – VB.NET – Merge Two Documents

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

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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page

Explore ByteScout Spreadsheet SDK Documentation

Explore Samples

Sign Up for ByteScout Spreadsheet SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page

Explore ByteScout Spreadsheet SDK Documentation

Explore Samples

Sign Up for ByteScout Spreadsheet SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next