ByteScout BarCode Generator SDK - VBScript - Create Barcode from Excel - ByteScout

ByteScout BarCode Generator SDK – VBScript – Create Barcode from Excel

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

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.

Try ByteScout Barcode SDK today:  60 Day Free Trial (on-premise) or  Web API (on-demand version)

generate_barcodes.vbs
      
' This example demonstrates reading values from Excel file and generating PDF417 barcodes. ' Please install Bytescout Spreadsheet SDK before run this example: ' http://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

Try ByteScout Barcode SDK today:  60 Day Free Trial (on-premise) or  Web API (on-demand version)

VIDEO

ON-PREMISE VERSION INFORMATION

Get 60 Day Free Trial or Visit ByteScout Barcode SDK Home Page

Explore ByteScout Barcode SDK Documentation

Get ByteScout Barcode SDK Free Training

WEB API

Get Your Free API Key

Explore Web API Documentation

Tutorials:

prev
next