Вызовите API Google Finance в Excel

Я хочу получить стоимость акций через Google Finance API в Excel.

Ресурс: https://finance.google.com/finance/info

Метод: GET

Параметры:

  • client = ig
  • q = <exchange code>:<stock code>

пример:

https://finance.google.com/finance/info?client=ig&q=TPE:2330

этот запрос получит цену акций Тайваньского Полупроводника.

Есть ли решение, независимо от того, выполняете ли какие-либо настройки рабочего листа или записываете код VBA, чтобы достичь моей цели?

Да. Для получения ответа используются методы XMLHTTPRequest, https://msdn.microsoft.com/en-us/library/ms759148%28v=vs.85%29.aspx . И разбор JSON с VBA для разбора ответа, поскольку это JSON. Простейший метод для разбора JSON с VBA описан здесь. Разбор JSON в Excel VBA, но есть гораздо более удобные библиотеки, доступные с ключевыми словами Excel VBA parse JSON .

Простой пример для вашего случая использования:

 Sub testGetJSON() sExchangeCode = "TPE" sStockCode = "2330" sURL = "https://finance.google.com/finance/info?client=ig&q=" & sExchangeCode & ":" & sStockCode Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", sURL, False oXMLHTTP.send sJSONResp = oXMLHTTP.responseText sJSONResp = Mid(sJSONResp, 4, Len(sJSONResp)) Set oScript = CreateObject("ScriptControl") oScript.Language = "jscript" oScript.AddCode "function getProperty(jsonObj, propertyName) { return jsonObj[propertyName]; } " Set oJSObj = oScript.eval("(" & sJSONResp & ")") Set oProp0 = oScript.Run("getProperty", oJSObj, "0") sLCur = oProp0.l_cur sLT = oProp0.lt MsgBox sLT & " : " & sLCur End Sub 
Interesting Posts

Формат ячейки библиотеки Excel Php Excel

Если это значение найдено в диапазоне, то используйте значение рядом с результатом диапазона

Несколько ifs в Excel

Использование VBA для запроса таблицы SQL Server в Excel

Преобразуйте ячейку в формулу с заменой

Переменная с InputBox и несколькими подмножествами в модуле

За цикл, чтобы зацикливать, хотя диапазон n ячеек за раз

Храните все элементы из таблицы HTML в Scripting Dictionary, добавляя также значения дубликатов

Excel: необходимо подсчитать случаи, когда значения в столбце больше, чем другой столбец. И значение указано в третьем столбце.

метод автофильтров класса диапазона не выполнен

Несогласованная ошибка 1004

Apache Poi excel удаляет пустые строки

Как создать лист сопоставления содержимого огромного количества данных, хранящихся на локальном сервере?

Простейший вопрос, не может найти ответ

Ошибка Excel в Instr

Давайте будем гением компьютера.