最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
Excel使用javascript实现算法自动更新
时间：2022-06-27 09:48:22 编辑：袖梨 来源：一聚教程网
先决条件
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中以便实现自动更新。
相关文章
- 动漫在线观看入口_高清动漫在线观看平台推荐 01-18
- 歪歪漫画韩漫入口 直达链接-每日更新热门韩漫合集 01-18
- deepseek官网登录入口-deepseek网页版极速体验 01-18
- 画涯漫画官网正版入口-画涯漫画纯净版官网下载 01-18
- 易游模拟器安卓版最新版本下载-易游模拟器官方手机版安装入口 01-18
- 秋蝉漫画-土豪版sss级免费阅读 01-18