ByteScout Data Extraction Suite – VBScript – Change column height with spreadsheet sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VBScript – Change column height with spreadsheet sdk

printable version:
ByteScout-Data-Extraction-Suite-VBScript-Change-column-height-with-spreadsheet-sdk.pdf

How to change column height with spreadsheet sdk in VBScript and ByteScout Data Extraction Suite

How to write a robust code in VBScript to change column height with spreadsheet sdk with this step-by-step tutorial

This sample source code below will display you how to change column height with spreadsheet sdk in VBScript. 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. It can be applied to change column height with spreadsheet sdk using VBScript.

Want to quickly learn? This fast application programming interfaces of ByteScout Data Extraction Suite for VBScript plus the guidelines and the code below will help you quickly learn how to change column height with spreadsheet sdk. Just copy and paste the code into your VBScript application’s code and follow the instructions. Further improvement of the code will make it more robust.

You can download free trial version of ByteScout Data Extraction Suite from our website with this and 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)

ChangeColumn.vbs

      ' IMPORTANT NOTE: you need to have .NET Framework 1.10 installed to use Spreadsheet SDK from Visual Basic
' to download and install .NET Framework 1.10 please use this link: http://www.microsoft.com/downloads/details.aspx?familyid=262D25E3-F589-4842-8157-034D1E7CF3A3

Set document = CreateObject("Bytescout.Spreadsheet.Spreadsheet")

document.RegistrationName = "demo"
document.RegistrationKey = "demo"

 ' Add new worksheet
Set worksheet = document.Workbook.Worksheets.Add("HelloWorld")

' add cell with HTML formatted text
Set cell = worksheet.Cell(2,2)
cell.ValueAsHTML = "test resizing"

set column = worksheet.columns.Item(1)

column.Width = 200

' delete output file if exists already
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("Output.xls")) Then fso.DeleteFile("Output.xls")
Set fso = nothing

' save document
document.SaveAs "Output.xls"

' close Spreadsheet
Set document = Nothing