64位Excel VBA调用JavaScript函数

Question

>我需要使用 VBA ScriptControl 对象来调用 JavaScript 函数，但它给了我一个"类未注册"错误。 我从工具中添加了Microsoft脚本控件 1.0>参考 我需要调用 JavaScript 从这个 Rest API 获取一个 JSON 对象，以计算 Excel 宏中的值。

这篇文章告诉我，ScriptControl只能用32位。我正在使用 64 位 Excel。 我也尝试使用此链接中提到的方法，但它不起作用，因为 VBA 无法识别 ActiveXObject

我的 Excel VBA 代码调用一个简单的 JS 函数：

Private Sub CommandButton1_Click()
Dim jsObj As MSScriptControl.ScriptControl, result As Integer
Set jsObj = CreateObject("MSScriptControl.ScriptControl")
jsObj.Language = "JScript"
With jsObj
.AddCode ("function prod1(a,b){return a*b;}")
result = .Run("prod1", 2, 3)
End With
MsgBox result
End Sub

我收到一个类未注册错误，用于设置 jsObj = CreateObject("MSScriptControl.ScriptControl"( 有没有另一种方法可以从VBA调用JavaScript函数？还是我错过了什么？

Answer 1

不需要ScriptControl 对象：您可以使用 XMLHTTP 和 VBA-JSON。

例如：

Public Sub Tester()
'Import the "JsonConverter.bas" file from 
'     https://github.com/VBA-tools/VBA-JSON
'and add a reference to the Microsoft Scripting Runtime library
Dim http As Object, JSON As Object, i As Integer, o As Object, k
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://www.alphavantage.co/query?" & _
"function=CURRENCY_EXCHANGE_RATE&from_currency=USD" & _
"&to_currency=JPY&apikey=demo", False
http.Send
Debug.Print http.responseText
Debug.Print "-----------------------------------"
Set JSON = ParseJson(http.responseText)
Set o = JSON("Realtime Currency Exchange Rate")
For Each k In o.keys
Debug.Print k, o(k)
Next k
End Sub