Vba调用JS计算24节气

最新推荐文章于 2019-12-02 13:57:57 发布

原创

最新推荐文章于 2019-12-02 13:57:57 发布 · 8.0k 阅读

标签

#VBA #JavaScript

本文介绍如何在VBA中嵌入JavaScript代码，实现精确计算中国24节气的方法，通过实例展示了跨语言合作在编程中的应用。

Private Sub CommandButton1_Click() ' Vba调用JS计算24节气
    tt = "2013"
    With CreateObject("Msxml2.XMLHTTP.5.0")
        .Open "GET", "http://www.fjptsz.com/xxjs/xjw/rj/113.htm", False
        .send
        ss = Split(Split(StrConv(.responseBody, vbUnicode, &H804), "<script language=javascript>")(1), "</script>")(0)
        ss = Replace(ss, "show1.innerText=", "return ")
        ss = Replace(ss, "y=in1.value-0;", "y=" & tt & "; ")    '
    End With
    Set JS = CreateObject("msscriptcontrol.scriptcontrol")
    JS.Language = "JavaScript"
    JS.AddCode ss
    MsgBox JS.CodeObject.paiYue(tt)
End Sub

Private Sub CommandButton2_Click()    ' Vba调用JS计算24节气
    tt = "2013"
    With CreateObject("Msxml2.XMLHTTP.5.0")
        .Open "GET", "http://bieyu.com/astp/02-24JQ.html", False
        .Send
        ss = Split(Split(.responsetext, "<script

最低0.47元/天解锁文章