ByteScout Barcode Reader SDK – Microsoft Excel – Read barcodes from folder

Home
/
Articles
/
ByteScout Barcode Reader SDK – Microsoft Excel – Read barcodes from folder

printable version:
ByteScout-BarCode-Reader-SDK-Microsoft-Excel-Read-barcodes-from-folder.pdf

How to read barcodes from folder in Microsoft Excel and ByteScout BarCode Reader SDK

How to write a robust code in Microsoft Excel to read barcodes from folder with this step-by-step tutorial

The sample source codes on this page shows how to read barcodes from folder in Microsoft Excel. ByteScout BarCode Reader SDK is the SDK for reading of barcodes from PDF, images and live camera or video. Almost every common type like Code 39, Code 128, GS1, UPC, QR Code, Datamatrix, PDF417 and many others are supported. Supports noisy and defective images and docs. Includes optional documents splitter and merger for pdf and tiff based on found barcodess. Batch mode is supported for superior performance using multiple threads. Decoded values are easily exported to JSON, CSV, XML and to custom format and you can use it to read barcodes from folder with Microsoft Excel.

The SDK samples given below describe how to quickly make your application do read barcodes from folder in Microsoft Excel with the help of ByteScout BarCode Reader SDK. This Microsoft Excel 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! Check Microsoft Excel sample code samples to see if they respond to your needs and requirements for the project.

Trial version of ByteScout BarCode Reader SDK is available for free. Source code samples are included to help you with your Microsoft Excel app.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

BarcodeReaderCode_VB.txt

      ' IMPORTANT: This demo uses VBA so if you have it disabled please temporary enable
' by going to Tools - Macro - Security.. and changing the security mode to ""Medium""
' to Ask if you want enable macro or not. Then close and reopen this Excel document

' You should have evaluation version of the ByteScout SDK installed to get it working - get it from https://bytescout.com

' If you are getting error message like
' "File or assembly named Bytescout SDK, or one of its dependencies, was not found"
' then please try the following:
'
' - Close Excel
' - (for Office 2003 only) download and install this hotfix from Microsoft:
' http://www.microsoft.com/downloads/details.aspx?FamilyId=1B0BFB35-C252-43CC-8A2A-6A64D6AC4670&displaylang=en
'
' and then try again!
'
' If you have any questions please contact us at https://bytescout.com/support/ or at support@bytescout.com
                            

'==============================================
'References used
'=================
'Bytescout Barcode Reader SDK
'
' IMPORTANT:
' ==============================================================
'1) Add the ActiveX reference in Tools -> References
'2) Enter path of folder containing barcode files's value into text box
'3) Get All files into that folder and iterage through it
'4) Read all barcodes into each file and write all values into cells
'==================================================================

Option Explicit


Sub Barcode_Click()

'Fetch the Worksheet
Dim mySheet As Worksheet
Set mySheet = Worksheets(1)     'Barcode_Data Sheet


' Set Initial Value
mySheet.Range("A2").Value = "Barcode Value"
mySheet.Range("B2").Value = "File Name"

Dim InputFolder As String

InputFolder = mySheet.OLEObjects("TextBox1").Object.Value

' Set cell index value
Dim CellIndex As Integer
CellIndex = 2

If InputFolder = "" Then
    MsgBox "Input Folder value is empty"
Else
    Call ProcessFolder(InputFolder, mySheet, CellIndex)
End If

End Sub

 
Sub ProcessFolder(ByVal folderPath As String, ByRef mySheet As Worksheet, ByRef CellIndex As Integer)
    
    Dim Reader As New Bytescout_BarCodeReader.Reader
    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
    
    ' define allowed input images extensions
    Dim inputImagesExtensions As String
    inputImagesExtensions = "JPG,JPEG,PNG,BMP,PDF,TIF"

    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Dim objFolder
    Set objFolder = objFSO.GetFolder(folderPath)
    
    Dim colFiles
    Set colFiles = objFolder.Files
    
    If colFiles.Count = 0 Then
        MsgBox "Entered Folder contains no files"
    Else
    
        Dim objFile
        For Each objFile In colFiles
    
            ' Check the file type
            If InStr(inputImagesExtensions, UCase(objFSO.GetExtensionName(objFile.Name))) > 0 Then
                Reader.ReadFromFile objFile.Path
    
                Dim i
                For i = 0 To Reader.FoundCount - 1
                    ' Get cell value
                    CellIndex = (CellIndex + 1)
                    
                    mySheet.Range("A" + CStr(CellIndex)).Value = Reader.GetFoundBarcodeValue(i)
                    mySheet.Range("B" + CStr(CellIndex)).Value = objFile.Name
                Next
            End If
        Next
    
        Dim subFolder
        For Each subFolder In objFolder.SubFolders
            ProcessFolder subFolder, mySheet, CellIndex
        Next
    
    End If

End Sub

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout BarCode Reader SDK Home Page

Explore ByteScout BarCode Reader SDK Documentation

Explore Samples

Sign Up for ByteScout BarCode Reader SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Reference Error – README.txt

      ' IMPORTANT: This demo uses VBA so if you have it disabled please temporary enable
' by going to Tools - Macro - Security.. and changing the security mode to ""Medium""
' to Ask if you want enable macro or not. Then close and reopen this Excel document

' You should have evaluation version of the ByteScout SDK installed to get it working - get it from https://bytescout.com

' If you are getting error message like
' "File or assembly named Bytescout SDK, or one of its dependencies, was not found"
' then please try the following:
'
' - Close Excel
' - (for Office 2003 only) download and install this hotfix from Microsoft:
' http://www.microsoft.com/downloads/details.aspx?FamilyId=1B0BFB35-C252-43CC-8A2A-6A64D6AC4670&displaylang=en
'
' and then try again!
'
' If you have any questions please contact us at https://bytescout.com/support/ or at support@bytescout.com