"object expected" suddenly popping up

[Sebastian H]

I dug out an old macro which worked well three years ago, but this time it gets stuck in the ScriptEngine.Run line:

Function encodeHTML(str As String)
    ' found at http://stackoverflow.com/questions/218181/how-can-i-url-encode-a-string-in-excel-vba; replaced "URL" by "HTML"
    
    Dim ScriptEngine As ScriptControl
    Set ScriptEngine = New ScriptControl
    ScriptEngine.Language = "JScript"
    
    ScriptEngine.AddCode "function encode(str) {return encodeHTMLComponent(str);}"
    Dim encoded As String
    
    encoded = ScriptEngine.Run("encode", str) ' <-- error "object expected"
    encodeHTML = encoded
End Function

Where does it expect the object? The obvious assumption is ScriptEngine, but if that weren't an object, the .AddCode method wouldn't work, before.

[GTO]

I dug out an old macro which worked well three years ago, but this time it gets stuck in the ScriptEngine.Run line: ...

This: ScriptEngine.AddCode "function encode(str) {return encodeHTMLComponent(str);}"
Needs to be: ScriptEngine.AddCode "function encode(str) {return encodeURIComponent(str);}"

Does that fix it?

Mark

[Sebastian H]

Does that fix it?

Yes! Thank you Mark!

I don't understand what happened here, because I did use this macro successfully before, and I thought this was the latest version. But anyway, I'm happy it's working now!

[GTO]

You are most welcome and glad it was an easy fix