Vba调用JS计算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 CreateOb