ByteScout Barcode Suite – VBScript – Copy data between spreadsheets with spreadsheet sdk

Home
/
Articles
/
ByteScout Barcode Suite – VBScript – Copy data between spreadsheets with spreadsheet sdk

printable version:
ByteScout-Barcode-Suite-VBScript-Copy-data-between-spreadsheets-with-spreadsheet-sdk.pdf

How to copy data between spreadsheets with spreadsheet sdk in VBScript and ByteScout Barcode Suite

Learning is essential in computer world and the tutorial below will demonstrate how to copy data between spreadsheets with spreadsheet sdk in VBScript

This sample source code below will display you how to copy data between spreadsheets with spreadsheet sdk in VBScript. ByteScout Barcode Suite can copy data between spreadsheets with spreadsheet sdk. It can be applied from VBScript. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.

This prolific sample source code in VBScript for ByteScout Barcode Suite contains various functions and other necessary options you should do calling the API to copy data between spreadsheets with spreadsheet sdk. IF you want to implement the functionality, just copy and paste this code for VBScript below into your code editor with your app, compile and run your application. If you want to use these VBScript sample examples in one or many applications then they can be used easily.

If you want to try other source code samples then the free trial version of ByteScout Barcode Suite is available for download from our website. Just try other source code samples for VBScript.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

CopyDataBetweenSpreadsheets.vbs

      ' Create and activate two Spreadsheet objects
Set srcDocument = CreateObject("Bytescout.Spreadsheet.Spreadsheet")
srcDocument.RegistrationName = "demo"
srcDocument.RegistrationKey = "demo"
Set dstDocument = CreateObject("Bytescout.Spreadsheet.Spreadsheet")
dstDocument.RegistrationName = "demo"
dstDocument.RegistrationKey = "demo"

' Load exported data
srcDocument.LoadFromFile ".\sample.csv"
' Load destination document
dstDocument.LoadFromFile ".\destination.xlsx"

' Get worksheets
Set srcWorksheet = srcDocument.Worksheet(0)
Set dstWorksheet = dstDocument.Worksheet(0)

' Copy data from source to destination
For row = 0 To 3
    For column = 0 To 3
        dstWorksheet.Cell(row, column).Value = srcWorksheet.Cell(row, column).Value
    Next
Next

' Recalculate formulas
dstDocument.Workbook.Calculate

' Save modified document as "result.xls"
dstDocument.SaveAs ".\result.xls"