Important Update
ByteScout tutorials describe the stuff for programmers who use VBScript. Barcodes to excel with barcode reader sdk in VBScript can be applied with ByteScout Data Extraction Suite. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.
VBScript code snippet like this for ByteScout Data Extraction Suite works best when you need to quickly implement barcodes to excel with barcode reader sdk in your VBScript application. Follow the steps-by-step instructions from the scratch to work and copy and paste code for VBScript into your editor. Updated and detailed documentation and tutorials are available along with installed ByteScout Data Extraction Suite if you’d like to learn more about the topic and the details of the API.
Our website gives free trial version of ByteScout Data Extraction Suite. It includes all these source code samples with the purpose to assist you with your VBScript application implementation.
On-demand (REST Web API) version:
Web API (on-demand version)
On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)
if WScript.Arguments.Count < 1 Then
MsgBox "Run with the folder path as the argument" & vbCRLF & vbCRLF & "MultipleTypeBarcodeToExcel.vbs <InputFolder>"
WScript.Quit 0
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
' define allowed input images extensions
inputImagesExtensions = "JPG,JPEG,PNG,BMP,PDF,TIF"
Set reader = CreateObject("Bytescout.BarCodeReader.Reader")
' Set multiple barcode types for searching
reader.BarcodeTypesToFind.Code39 = True
reader.BarcodeTypesToFind.QRCode = True
reader.BarcodeTypesToFind.PDF417 = True
reader.BarcodeTypesToFind.EAN13 = True
' Set excel document
Set document = CreateObject("Bytescout.Spreadsheet.Spreadsheet")
' Set document keys
document.RegistrationName = "demo"
document.RegistrationKey = "demo"
' Add new worksheet
Set worksheet = document.Workbook.Worksheets.Add("BarCodes")
' Set cell index value
Dim CellIndex
CellIndex = 0
' Set Initial Value
CellIndex = (CellIndex + 1)
Set cell_value = worksheet.Cell_2("A" + Cstr(CellIndex))
Set cell_filename = worksheet.Cell_2("B" + Cstr(CellIndex))
cell_value.Value = "Barcode Value"
cell_filename.Value = "File Name"
Set objInputFolder = objFSO.GetFolder(WScript.Arguments(0))
Call ProcessFolder(objInputFolder)
' delete output file if exists already
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("output.xls")) Then fso.DeleteFile("output.xls")
Set fso = nothing
' save document
document.SaveAs "output.xls"
WScript.Echo "successfully created 'output.xls' file!"
' close Spreadsheet
Set document = Nothing
WScript.Quit 0
Sub ProcessFolder(folder)
Set objFolder = objFSO.GetFolder(folder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
' Check the file type
If inStr(inputImagesExtensions, UCase(objFSO.GetExtensionName(objFile.Name))) > 0 Then
reader.ReadFromFile objFile.Path
For i = 0 To reader.FoundCount - 1
' Get cell value
CellIndex = (CellIndex + 1)
Set cell_value = worksheet.Cell_2("A" + Cstr(CellIndex))
Set cell_filename = worksheet.Cell_2("B" + Cstr(CellIndex))
' set cell value
cell_value.Value = reader.GetFoundBarcodeValue(i)
cell_filename.Value = objFile.Name
' Write to console
WScript.Echo "Extracted barcode '" & reader.GetFoundBarcodeValue(i) & "' from '"& objFile.Name &"' file"
Next
End If
Next
For Each subFolder in folder.SubFolders
ProcessFolder subFolder
Next
End Sub
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
REM running from the command line
cscript.exe MultipleTypeBarcodeToExcel.vbs "InputFiles"
pause
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page
Explore ByteScout Data Extraction Suite Documentation
Explore Samples
Sign Up for ByteScout Data Extraction Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
also available as: