Function does'nt work !!

[MadameHugo]

Hi,

After many researches, I used this function to convert my images path into format BASE64.

Public Function EncodeFile(strPicPath As String) As String
    Const adTypeBinary = 1          ' Binary file is encoded

    ' Variables for encoding
    Dim objXML
    Dim objDocElem

    ' Variable for reading binary picture
    Dim objStream

    ' Open data stream from picture
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = adTypeBinary
    objStream.Open
    objStream.LoadFromFile (strPicPath)

    ' Create XML Document object and root node
    ' that will contain the data
    Set objXML = CreateObject("MSXml2.DOMDocument")
    Set objDocElem = objXML.createElement("Base64Data")
    objDocElem.DataType = "bin.base64"

    ' Set binary value
    objDocElem.nodeTypedValue = objStream.Read()

    ' Get base64 value
    EncodeFile = objDocElem.Text

    ' Clean all
    Set objXML = Nothing
    Set objDocElem = Nothing
    Set objStream = Nothing

End Function

But when i call this function like : =EncodeFile(G2)

NOTE : G2 that contain the PATH OF IMAGE : C:\Users\dalila\Pictures\images\naom_59dddfc7dd0b0.jpg

I have the result "#VALUE!"

Can you help me please? ...

 

[MadameHugo]

It work's very good... Thank you for you efforts... but...

The format of base64 is very very long and when I import my file .xls into the website, it don't accept it because of the longer of bytes. Must i change something on the function Encode File ?

 

[Yongle]

That is a different question
Please start a new thread for that question
Provide full information in your new thread in cluding the code you are currently using

 

[MadameHugo]

Hi,
Thank you for all your efforts, I will never forget that. I will start a new thread about that question.

 

[MadameHugo]

Try this

Sub CallFunc()
    Dim cel As Range
    For Each cel In Range("B2:B6")
        cel.Offset(, 1) = EncodeFile(cel.Value)
    Next cel
End Sub

Hi Yongle !! When I tried to reproduce this code in house, i have this error, maybe it's the spaces ? In english it's : Arguments are of incorrect types, out of bounds, or in conflict with each other.

And this the debug :

 

[Yongle]

Sorry, I am unable to help you with that question