Привет всем! Задача стоит выгрузить исторические котировки по ценной бумаге с сайта Франкфуртской биржи за период. Например, по вот этой бумаге - http://ift.tt/2wlkbgI History На сколько я понял из javascript кода сайта, там идет post-запрос на сервер, формируемый функцией requestHistoricPrice():
function requestHistoricPrice() {
var requestedStockMarket = "";
if ($('#historic-prices-stock-market').length > 0) {
requestedStockMarket = $('#historic-prices-stock-market').val();
if (requestedStockMarket === '') {
requestedStockMarket = 'ETR';
}
requestedStockMarket += '/';
}
var requestedStartDate = $('#historic-prices-start-day').val() + "." + $('#historic-prices-start-month').val() + "." + $('#historic-prices-start-year').val();
var requestedEndDate = $('#historic-prices-end-day').val() + "." + $('#historic-prices-end-month').val() + "." + $('#historic-prices-end-year').val();
var decodedUri = decodeURIComponent('%2fstock%2fpricehistory%2fTesla-share%2f');
var dateRange = requestedStartDate + "_" + requestedEndDate;
var actionUrl = "";
var hash = window.location.hash;
if ($("#derivative-mastertype").val() !== "") {
actionUrl = decodedUri + dateRange + hash;
} else {
actionUrl = decodedUri + requestedStockMarket + dateRange + hash;
}
$('#submitForm').attr('action', actionUrl);
$('#submitForm').submit();
};
Подскажите, как сделать на VBA post-запрос на сервер, чтобы получить запрашиваемые данные?
Aucun commentaire:
Enregistrer un commentaire