These sample source codes on this page below are displaying how to create barcode from excel with barcode sdk in VBScript. Want to create barcode from excel with barcode sdk in your VBScript app? ByteScout Barcode Suite is designed for it. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK).
These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Barcode Suite. Just copy and paste the code into your VBScript application’s code and follow the instructions. Applying VBScript application mostly includes various stages of the software development so even if the functionality works please test it with your data and the production environment.
ByteScout Barcode Suite free trial version is available on our website. VBScript and other programming languages are supported.
' 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