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.
' 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