jeudi 28 septembre 2017

VBA post-запрос на Frankfurt Boerse

Привет всем! Задача стоит выгрузить исторические котировки по ценной бумаге с сайта Франкфуртской биржи за период. Например, по вот этой бумаге - 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