(Excel) Convert any File to Base64 (and back)

Demonstrates how to get the contents of any file as a base64 string, and then write it back.

Download Excel Class Modules Chilkat Excel Class Modules

Dim bd As Chilkat.BinData
Set bd = Chilkat.NewBinData

' This example will load a PDF and return it as a base64 string.

success = bd.LoadFile("qa_data/pdf/helloWorld.pdf")
If (success <> True) Then
    Debug.Print "Failed to load file."
    Exit Sub
End If


b64Str = bd.GetEncoded("base64")
Debug.Print b64Str

' Now write the base64 string back to the binary PDF file:
Dim bd2 As Chilkat.BinData
Set bd2 = Chilkat.NewBinData
success = bd2.AppendEncoded(b64Str,"base64")
success = bd2.WriteFile("qa_output/helloWorld.pdf")