ByteScout Data Extraction Suite – VBScript – Copy data between spreadsheets with spreadsheet sdk

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

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

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

Step-by-step tutorial on how to copy data between spreadsheets with spreadsheet sdk in VBScript

We made thousands of pre-made source code pieces for easy implementation in your own programming projects. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK and you can use it to copy data between spreadsheets with spreadsheet sdk with VBScript.

The following code snippet for ByteScout Data Extraction Suite works best when you need to quickly copy data between spreadsheets with spreadsheet sdk in your VBScript application. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! If you want to use these VBScript sample examples in one or many applications then they can be used easily.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

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"