"object expected" suddenly popping up

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

Code:

---

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.

Quote:

---

Originally Posted by 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: ...

---

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

Quote:

---

Originally Posted by GTO

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!

You are most welcome and glad it was an easy fix:beerchug: