Excel使用javascript实现算法自动更新

先决条件
1、需要有一个固定的网络服务器，或者是可以上传下载文件的地方。

2、有点废话，上面的条件必须稳定。

实现代码
1、Vba代码

Function MyAdd()
    Dim Http As Object
    Dim o As Object
    Dim JsCode As String
    Set Http = CreateObject("MSXML2.XMLHTTP.3.0")
    Set o = CreateObject("ScriptControl")
    Http.Open "GET", "/exceljs/excel.js?rnd=" & Rnd, False'加入随机值
    Http.setRequestHeader "If-Modified-Since", "0" '禁止缓存
    Http.send
    JsCode = Http.responseText
    o.Language = "JScript"
    o.AddCode JsCode
    MyAdd= o.Run("myadd", 3, 2)
    Set o = Nothing
    Set Http = Nothing
End Sub

2、JavaScript代码

Function myadd(a,b){     Return a+b; }

上面的代码主要是获取一个网络中的Js代码，然后再Vba中利用ScriptControl对象对改代码进行解析，实现算法动态更新效果。

总结

这种办法牺牲的是效率，如果您需要一个高效的算法，那么各位童鞋请另辟蹊径，比如讲算法封装到Dll中以便实现自动更新。