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.

Try ByteScout Spreadsheet SDK today:  60 Day Free Trial (on-premise) or  Web API (on-demand version)

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

Try ByteScout Spreadsheet SDK today:  60 Day Free Trial (on-premise) or  Web API (on-demand version)

VIDEO

ON-PREMISE VERSION INFORMATION

Get 60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page

Explore ByteScout Spreadsheet SDK Documentation

Get ByteScout Spreadsheet SDK Free Training

WEB API

Get Your Free API Key

Explore Web API Documentation

Tutorials:

prev
next