Investigation, you can apply your workarounds and fixes after the conversion To Step 1: Convert your files.Modify incompatible VBA APIsįor files that have the status Supported with workaround or Needs For files that have the status Supported exactly, you can proceed You might want to update incompatible APIs in your VBA code before you convert UBound(aCells, 2) - LBound(aCells, 2) + 1)īTW, the similar approach applied in other answers. UBound(aCells, 1) - LBound(aCells, 1) + 1, _ Sub Output2DArray(oDstRng As Range, aCells As Variant)
Resize(1, UBound(aCells) - LBound(aCells) + 1) Sub OutputArray(oDstRng As Range, aCells As Variant) ' Output the entire table to the worksheet MsgBox "ripple price_usd " & vElement("price_usd") If sState = "Error" Then MsgBox "Invalid JSON string": Exit Sub Import JSON.bas module into the VBA project for JSON processing. If sItem.Name = "Ripple" Then.), it is still not working.ĮDIT 4: I believe I also tagged the excel-cell in the wrong manner. See comments for Run Time Error etc.ĮDIT 3: I believe I have made a mistake in lines 16 and 17 by referring to oJSON and not the item (sItem).
that poses the problem, but I have been unable to solve it/find the error as of now. Thanks in advanceĮDIT 2: It is lines 16 and 17 (respectively If oJSON.Name. The API call is successful (I believe), but I get syntax errors etc. Set oJSON = JsonConverter.ParseJson(sGetResult)
Set httpObject = CreateObject("MSXML2.XMLHTTP") This is my script, but it is not working for some reason. Ultimately, I am trying to get the price of Ripple (line 16), and then set cell B1 in my Excel sheet to display the price of ripple (line 17). I am extracting the JSON data from the API of CoinMarketCap. I am trying to show prices of specific cryptocurrencies in an Excel sheet.
0 kommentar(er)
