ByteScout Spreadsheet SDK – VBScript – Copy Data Between Spreadsheets

Home
/
Articles
/
ByteScout Spreadsheet SDK – VBScript – Copy Data Between Spreadsheets

printable version:
ByteScout-Spreadsheet-SDK-VBScript-Copy-Data-Between-Spreadsheets.pdf

How to copy data between spreadsheets in VBScript using ByteScout Spreadsheet SDK

Tutorial on how to copy data between spreadsheets in VBScript

The coding tutorials are designed to help you test the features without need to write your own code. ByteScout Spreadsheet SDK can copy data between spreadsheets. It can be used from VBScript. ByteScout Spreadsheet SDK is the SDK that can write and read, modify and calculate Excel and CSV spreadsheets. Most popular formulas are supported. You may import or export data to and from CSV, XML, JSON as well as to and from databases, arrays.

This rich sample source code in VBScript for ByteScout Spreadsheet SDK includes the number of functions and options you should do calling the API to copy data between spreadsheets. Follow the instructions from the scratch to work and copy the VBScript code. Further enhancement of the code will make it more vigorous.

Trial version of ByteScout Spreadsheet SDK can be downloaded for free from our website. It also includes source code samples for VBScript and other programming languages.

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"