Base64 to image excel

April 2023 Community Newsletter

Welcome to our April 2023 Community Newsletter, where we’ll be highlighting the latest news, releases, upcoming events, and the great work of our members inside the Biz Apps communities. You can subscribe to the News & Announcements and stay up to date with the latest news from our ever-growing membership network who quickly discover that «Community is bigger on the inside». 
 

 
 
LATEST NEWS
Microsoft Business Applications Launch Event — On Demand
Sign up below for an in-depth look into the latest updates from across Microsoft #PowerPlatform and #Dynamics365. Find out about new features, capabilities, and best practices for connecting data to deliver exceptional customer experiences, collaborating using AI-powered analytics, and driving productivity with automation. Guest speakers include Charles Lamanna, Emily He, Georg Glantschnig, Julie Strauss, Jeff Comstock, Lori Lamkin, Mike Morton, Ray Smith, and Walter Sun.
 

Watch Now: Business Applications Launch Event

 
 
Power Platform Connections — Episode Nine
Episode Nine of #PowerPlatform Connections premieres today at 12pm PST, as David Warner II and Hugo Bernier chat to Principal Program Manager Vesa Juvonen, alongside the great work of Troy Taylor, Geetha Sivasailam, Michael Megel, Nathalie Leenders, Ritesh Ranjan Choubey, Clay Wesener, Tristan DEHOVE, Dian Taylor, and Cat Schneider.
Click the link below to subscribe and get notified, with David and Hugo LIVE in the YouTube chat from 12pm PST. And remember to use the hashtag #PowerPlatformConnects on social to have your work featured on the show!
 

 
 
App in a Day — Free Workshop
Looking for a way to build a solution to quickly meet your business needs? Register below for a FREE «App in a Day» workshop to find out how to create custom business applications without writing code!
Microsoft Power Platform In a Day workshops

 
UPCOMING EVENTS
Directions Asia
Find out more about Directions 4 Partners Asia 2023, which will be taking place in Bangkok on 27-28th April 2023, featuring key speakers Mike Morton, Jannik Bausager and Dmitry Chadayev.
This event is for SMB focused Dynamics partners and their employees to receive product knowledge about Business Central, Power Platform and #DynamicsSales, and to be inspired and motivated by best practices, expert knowledge and innovative ideas.
If you want to meet industry experts, gain an advantage in the SMB-market, and acquire new knowledge about #MicrosoftDynamics Business Central, click the link below to buy your ticket today!
 
Click here to Register  

 
 
Iberian Tech Summit
Come take a look at the Iberian Technology Summit which will be held at the Real Marina Hotel & Spa in Olhão, Portugal, between 28-30th April 2023.
The Iberian Technology Summit is the first of its kind with a clear goal to achieve — cross the borders of peninsula and help to empower the community of professionals, workers and businesses to grow stronger together.
Congrats to Kaila Bloomfield, Adam B., Ana Inés Urrutia de Souza and the team for putting together this great event. Click below to find out more details.
Click here to Register

 
 
Power Platform Conference 2023
We are so excited to see you for the Microsoft Power Platform Conference in Las Vegas October 3-5th, 2023! But first, let’s take a look back at some fun moments and the best community in tech from MPPC 2022 in Orlando Florida.
 

Featuring guest speakers such as Heather Cook, Julie Strauss, Nirav Shah, Ryan Cunningham, Sangya Singh, Stephen Siciliano, Hugo Bernier and many more, click the link below to register for the 2023 #MPPC23 today! 
www.powerplatformconf.com
 
COMMUNITY HIGHLIGHTS
Check out our top Super and Community Users reaching new levels! These hardworking members are posting, answering questions, kudos, and providing top solutions in their communities.
Power Apps: 
Super Users:  @BCBuizer , @WarrenBelz, 
Community Users: @mmollet, @Amik, @RJM07 
 
Power Automate: 
Super Users: @Expiscornovus , @grantjenkins, @abm 
Community Users: @Nived_Nambiar  
 
Power Virtual Agents: 
Super Users: @Expiscornovus, @Pstork1, 
Community Users: @nikviz, @DaniBaeyens 
 
Power Pages:
Super Users: @ragavanrajan 
Community Users: @OOlashyn, @gospa, @Fubar 

LATEST PRODUCT BLOG ARTICLES 
Power Apps Community Blog 
Power Automate Community Blog 
Power Virtual Agents Community Blog 
Power Pages Community Blog 

Check out ‘Using the Community’ for more helpful tips and information: 
Power Apps, Power Automate, Power Virtual Agents, Power Pages 

If you are not afraid of running a Python script, here’s a quick one.

Pass in a text file where there’s one base64 image per line.
This will write out a sequence of images, like image0001.png, image0002.png, …

import fileinput
import base64

for index, line in enumerate(fileinput.input(), 1):
  if line.startswith('data:image/png;base64,'):
    with open('image{0:04}.png'.format(index), 'wb') as png:
       line = line.strip()
       png.write(base64.b64decode(line[22:] + '===='))

Save this into a file like decode.py, then run it with

python3 decode.py input.txt

If your input file is CSV with a single column, that’s a text file, too, so you should be able to use that directly (though CSV might have quoting you need to trim off). If you really have to accept the input in a proper Excel spreadsheet, exporting that to CSV is a manual process which is one good reason to avoid Excel if you can.

Based on your comment, here is an attempt to use the xlrd module to read Excel directly, but I (thankfully) have nothing to test it on.

import base64
import xlrd

workbook = xlrd.open_workbook("images.xlsx")
worksheet = workbook.sheet_by_name("Sheet1")

for idx in range(1, worksheet.nrows+1):
    excel_data = worksheet.cell(idx-1,0).value
    if excel_data.startswith('data:image/png;base64,'):
        with open('image{0:04}.png'.format(idx), 'wb') as png:
            png.write(base64.b64decode(excel_data.strip()[22:] + '===='))

Your attempt was using the base64 data excel_data instead of the index in the the argument to open which specifies the file name. idx runs from 1 to the number of the final row of data.

Addendum:
Some of the data seems to be erroneous. I managed to extract your pictures with the following hack, but I’m not sure if it’s actually producing correct output — this seemed to work for the images I tried, but it could introduce corruption because I am simply dropping the last base64 character.

import fileinput
import base64
import binascii

for index, line in enumerate(fileinput.input(), 1):
  if line.startswith('data:image/png;base64,'):
    with open('image{0:04}.png'.format(index), 'wb') as png:
       line = line.strip()[22:]
       try:
         decoded = base64.b64decode(line + '====')
       except binascii.Error:
         decoded = base64.b64decode(line[0:-1] + '====')
       png.write(decoded)

If you are not afraid of running a Python script, here’s a quick one.

Pass in a text file where there’s one base64 image per line.
This will write out a sequence of images, like image0001.png, image0002.png, …

import fileinput
import base64

for index, line in enumerate(fileinput.input(), 1):
  if line.startswith('data:image/png;base64,'):
    with open('image{0:04}.png'.format(index), 'wb') as png:
       line = line.strip()
       png.write(base64.b64decode(line[22:] + '===='))

Save this into a file like decode.py, then run it with

python3 decode.py input.txt

If your input file is CSV with a single column, that’s a text file, too, so you should be able to use that directly (though CSV might have quoting you need to trim off). If you really have to accept the input in a proper Excel spreadsheet, exporting that to CSV is a manual process which is one good reason to avoid Excel if you can.

Based on your comment, here is an attempt to use the xlrd module to read Excel directly, but I (thankfully) have nothing to test it on.

import base64
import xlrd

workbook = xlrd.open_workbook("images.xlsx")
worksheet = workbook.sheet_by_name("Sheet1")

for idx in range(1, worksheet.nrows+1):
    excel_data = worksheet.cell(idx-1,0).value
    if excel_data.startswith('data:image/png;base64,'):
        with open('image{0:04}.png'.format(idx), 'wb') as png:
            png.write(base64.b64decode(excel_data.strip()[22:] + '===='))

Your attempt was using the base64 data excel_data instead of the index in the the argument to open which specifies the file name. idx runs from 1 to the number of the final row of data.

Addendum:
Some of the data seems to be erroneous. I managed to extract your pictures with the following hack, but I’m not sure if it’s actually producing correct output — this seemed to work for the images I tried, but it could introduce corruption because I am simply dropping the last base64 character.

import fileinput
import base64
import binascii

for index, line in enumerate(fileinput.input(), 1):
  if line.startswith('data:image/png;base64,'):
    with open('image{0:04}.png'.format(index), 'wb') as png:
       line = line.strip()[22:]
       try:
         decoded = base64.b64decode(line + '====')
       except binascii.Error:
         decoded = base64.b64decode(line[0:-1] + '====')
       png.write(decoded)

I have the following 2 functions which give me the base64 of an image

Option Compare Database
Option Explicit

Function readBytes(strFile As String) As Variant
  Const TypeBinary = 1
  Dim inStream As Object
  ' ADODB stream object used
  Set inStream = CreateObject("ADODB.Stream")
  ' open with no arguments makes the stream an empty container
  inStream.Open
  inStream.Type = TypeBinary
  inStream.LoadFromFile strFile
  readBytes = inStream.Read()
End Function

Function encodeBase64(arrBytes As Variant) As String
  Dim DM As Object, EL As Object
  Set DM = CreateObject("Microsoft.XMLDOM")
  ' Create temporary node with Base64 data type
  Set EL = DM.createElement("tmp")
  EL.dataType = "bin.base64"
  ' Set bytes, get encoded String
  EL.nodeTypedValue = arrBytes
  encodeBase64 = EL.Text
End Function

Sub test()

TestIt CurrentProject.Path & "pic.jpg"

End Sub

Function TestIt(strFile As String) As String

  Dim arrBytes As Variant, strRet As String

  arrBytes = readBytes(strFile)
  strRet = encodeBase64(arrBytes)

Dim s As String
Open CurrentProject.Path & "pic_base64.txt" For Binary As #1
Put #1, 1, strRet
Close #1


End Function

I need to convert the following 2 functions to same VBA format as the functions above and add an additional test function which will take the base64 converted image string from the above function and write it back to the image pic.jpg

private function decodeBase64(base64)
  dim DM, EL
  Set DM = CreateObject("Microsoft.XMLDOM")
  ' Create temporary node with Base64 data type
  Set EL = DM.createElement("tmp")
  EL.DataType = "bin.base64"
  ' Set encoded String, get bytes
  EL.Text = base64
  decodeBase64 = EL.NodeTypedValue
end function

private Sub writeBytes(file, bytes)
  Dim binaryStream
  Set binaryStream = CreateObject("ADODB.Stream")
  binaryStream.Type = TypeBinary
  'Open the stream and write binary data
  binaryStream.Open
  binaryStream.Write bytes
  'Save binary data to disk
  binaryStream.SaveToFile file, ForWriting
End Sub

Best Free Online Base64 to Excel Converter

Quick and easy

Base64 to Excel Converter is a service for online file conversion from one type to another. We support many popular formats for work, all possible image formats, multimedia file formats, etc. Our Base64 to Excel conversion tool is easy to use: select the desired file type, then define the output format of your document, upload the file and click ‘Upload’.

Security guaranteed

We guarantee secure and private. We do not get the right to your file and there will be no manual checking. We care about your privacy and your files. In this regard, we will also not share your data with other parties. It is essential that you have the opportunity to immediately delete the files you have uploaded from our server. If you forget to do this, they will be automatically deleted from our server after 24 hours. We completely secure your information.

Universal conversion

You can convert files to Base64 to Excel from any OS or device with an internet connection. Our service works on any OS including Windows, Mac, and Linux.

Most popular conversions

We support the most common conversion options for work and study. Use our Free application to decrease your workload, when dealing with both document and image files.