ByteScout Barcode Suite - VBScript - Create barcode from excel with spreadsheet sdk - ByteScout

ByteScout Barcode Suite – VBScript – Create barcode from excel with spreadsheet sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Suite – VBScript – Create barcode from excel with spreadsheet sdk

How to create barcode from excel with spreadsheet sdk in VBScript using ByteScout Barcode Suite

If you want to learn more then this tutorial will show how to create barcode from excel with spreadsheet sdk in VBScript

The coding instructions are formulated to help you to try-out the features without the requirement to write your own code. Want to create barcode from excel with spreadsheet 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).

Want to quickly learn? This fast application programming interfaces of ByteScout Barcode Suite for VBScript plus the guidelines and the code below will help you quickly learn how to create barcode from excel with spreadsheet sdk. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Further improvement of the code will make it more robust.

Our website gives trial version of ByteScout Barcode Suite for free. It also includes documentation and source code samples.

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 BarCode Generator SDK before run this example: ' https://bytescout.com/products/developer/barcodesdk/bytescoutbarcodesdk.html '*** Prepare Spreadsheet object Set spreadsheet = CreateObject("Bytescout.Spreadsheet.Spreadsheet") spreadsheet.RegistrationName = "demo" spreadsheet.RegistrationKey = "demo" ' Load Excel document spreadsheet.LoadFromFile("test.xlsx") ' Take the first worksheet Set worksheet = spreadsheet.Worksheet(0) '*** Prepare Barcode object - requies to download BarCode SDK from ByteScout.com site 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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next