第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問(wèn)題,去搜搜看,總會(huì)有你想問(wèn)的

64 位用于調(diào)用腳本函數(shù)的 Excel VBA

64 位用于調(diào)用腳本函數(shù)的 Excel VBA

郎朗坤 2022-09-16 21:35:24
我需要使用VBA腳本控件對(duì)象來(lái)調(diào)用 JavaScript函數(shù),但它給了我一個(gè)“類(lèi)未注冊(cè)”錯(cuò)誤。我從工具>參考中添加了微軟腳本控制1.0,我需要調(diào)用JavaScript從這個(gè)休息API中獲取JSON對(duì)象,以計(jì)算Excel宏中的值。這篇文章告訴我,腳本控件僅適用于 32 位。我正在使用64位 Excel。我還嘗試使用此鏈接中提到的方法,但由于VBA無(wú)法識(shí)別ActiveX對(duì)象,因此它不起作用我的 Excel VBA 代碼調(diào)用一個(gè)簡(jiǎn)單的 JS 函數(shù):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 resultEnd Sub我收到一個(gè)類(lèi)未注冊(cè)錯(cuò)誤,用于行 設(shè)置 jsObj = 創(chuàng)建對(duì)象 (“MSScript控制.腳本控制”) 是否有另一種方法可以從 VBA 調(diào)用 JavaScript 函數(shù)?還是我錯(cuò)過(guò)了什么?
查看完整描述

1 回答

?
森欄

TA貢獻(xiàn)1810條經(jīng)驗(yàn) 獲得超5個(gè)贊

不需要腳本控件對(duì)象:可以使用 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


查看完整回答
反對(duì) 回復(fù) 2022-09-16
  • 1 回答
  • 0 關(guān)注
  • 266 瀏覽
慕課專(zhuān)欄
更多

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)