ByteScout BarCode Generator SDK – VBScript – Create Barcode from Excel

Home
/
Articles
/
ByteScout BarCode Generator SDK – VBScript – Create Barcode from Excel

printable version:
ByteScout-Barcode-SDK-VBScript-Create-Barcode-from-Excel.pdf

How to create barcode from excel in VBScript using ByteScout Barcode SDK

The tutorial shows how to create barcode from excel in VBScript

On this page you will learn from code samples for programming in VBScript.Writing of the code to create barcode from excel in VBScript can be done by developers of any level using ByteScout Barcode SDK. What is ByteScout Barcode SDK? It is the robost library (Software Development Kit) that is designed for automatic generation of high-quality barcodes for printing, electronic documents and pdf. All popular barcode types are supported from Code 39 and Code 129 to QR Code, UPC, GS1, GS-128, Datamatrix, PDF417, Maxicode and many others. Provides support for full customization of fonts, colors, output and printing sizes. Special tools are included to verify output quality and printing quality. Can add generated barcode into new or existing documents, images and PDF. It can help you to create barcode from excel in your VBScript application.

You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Barcode SDK for create barcode from excel below and use it in your application. In your VBScript project or application you may simply copy & paste the code and then run your app! Use of ByteScout Barcode SDK in VBScript is also explained in the documentation included along with the product.

Free trial version of ByteScout Barcode SDK is available on our website. Documentation and source code samples are included.

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

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

generate_barcodes.vbs

      ' This example demonstrates reading values from Excel file and generating PDF417 barcodes.
' Please install Bytescout Spreadsheet SDK before run this example:
' https://bytescout.com/products/developer/spreadsheetsdk/bytescoutspreadsheetsdk.html

'*** Prepare Spreadsheet object
Set spreadsheet = CreateObject("Bytescout.Spreadsheet.Spreadsheet")
spreadsheet.RegistrationName = "demo"
spreadsheet.RegistrationKey = "demo"
' Load Excel document
spreadsheet.LoadFromFile("18_Oct_2012.xlsx")
' Take the first worksheet
Set worksheet = spreadsheet.Worksheet(0)

'*** Prepare Barcode object
Set barcode = CreateObject("Bytescout.BarCode.Barcode")
barcode.RegistrationName = "demo"
barcode.RegistrationKey = "demo"
' Set barcode type to PDF417
barcode.Symbology = 13 ' 13 means PDF417 barcode
' Set higher resoultion (300 is good for printing)
barcode.ResolutionX = 300
barcode.ResolutionY = 300
' Show barcode caption (remove these lines if you don't need it)
barcode.DrawCaption = True
barcode.DrawCaptionFor2DBarcodes = True

' Run through worksheet rows
For i = 0 To worksheet.NotEmptyRowMax - 1
	' Get barcode value from first worksheet column 
	barcode.Value = worksheet.Item(i, 0).ValueAsString
	' Fit barcode into 40x15 mm rectangle
	barcode.FitInto_3 40, 15, 4 ' 4 means millimeter units
	' Save barcode image to file
	barcode.SaveImage("barcode" & i & ".png")
Next

' Release objects
Set spreadsheet = Nothing
Set barcode = Nothing