Почему XMLHttp запрос возвращает статус Unknown? - VBA - Ответ 7797276

@amaryllis · Регистрация: 01.10.2014

Author24 — интернет-сервис помощи студентам

Добрый день!
Такая ситуация: уже довольно долгое время ежедневно скачиваю с сайта санкт-петербургской биржи отчеты (списки индексов и бюллетени с итогами торгов). Все загружалось вполне успешно, а вчера внезапно совсем перестало работать (код прилагаю). Собственно, перестали загружаться файлы, когда я пытаюсь вбить адрес в браузер вручную, файл загружается мигом, а через функцию для скачивания не работает. Стопорится на месте

PureBasic

1
2
3

    
XMLHTTP.send
 If XMLHTTP.statustext = "OK" Then

, т.к. запрос возвращает статус Unknown. Собственно, вопрос, почему так стало происходить и как исправить проблему? Данные очень нужны.

PureBasic

' загрузка индексов
 
        Dim VladIndexes, StockIndexes, OTCIndexes, PathVladIndexes, PathStockIndexes, PathOTCIndexes, CurrentFilePath As String
 
       <...>
 
        ' файл с владимирскими индексами и путь для сохранения
        VladIndexes = "http://spimex.com/indexes/service_functions.php?request=csv&index=spi"
        PathVladIndexes = "<...>\indexes\VladIndexes.csv"
        
        ' файл с биржевыми индексами  и путь для сохранения
        StockIndexes = "http://spimex.com/indexes/service_functions.php?request=csv&index=eri"
        PathStockIndexes = "<...>\indexes\StockIndexes.csv"
        
        'файл с внебиржевыми индексами  и путь для сохранения
        OTCIndexes = "http://spimex.com/indexes/service_functions.php?request=csv&index=ori"
        PathOTCIndexes = "<...>\NNK_BaseAUX\indexes\OTCIndexes.csv"
          
        ' запуск функции скачивания файлов
        M_MAIN_FUNCTIONS.DownloadFile VladIndexes, PathVladIndexes
        M_MAIN_FUNCTIONS.DownloadFile StockIndexes, PathStockIndexes
        M_MAIN_FUNCTIONS.DownloadFile OTCIndexes, PathOTCIndexes
   
 <...>

PureBasic

' загрузка бюллетеней
 
' генерация имени файла бюллетеня на дату sDate
 FileNameDownload = "http://spimex.com/upload/reports/oil_xls/oil_xls_" & Format(sDate, "yyyy") & Format(sDate, "mm") & Format(sDate, "dd") & "162000.xls"
 
' путь для сохранения
FilePathSave = "<..>\Биржа\oil_xls_" & Format(sDate, "yyyy") & Format(sDate, "mm") & Format(sDate, "dd") & "162000.xls"
                
Call M_MAIN_FUNCTIONS.DownloadFile(FileNameDownload, FilePathSave)

Функцию, каюсь, подсмотрела у кого-то в сети.

PureBasic

Function DownloadFile(ByVal URL$, ByVal LocalPath$) As Boolean
 
   Dim XMLHTTP, ADOStream
    On Error Resume Next: Kill LocalPath$
 
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statustext = "OK" Then
        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody
 
        ADOStream.SaveToFile LocalPath$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
    Else
 
   End If
    Set XMLHTTP = Nothing
End Function

Вернуться к обсуждению:
Почему XMLHttp запрос возвращает статус Unknown? VBA

Следующий ответ

Другие темы раздела
VBA Обработка данных о путешествиях https://www.cyberforum.ru/ vba/ thread1485529.html Создать программное приложение, которое позволит обработать дан ные о странах и ценах на туристические путевки в эти страны. Данные пред ставлены на рабочем листе. Цена на путевки генерируется при инициализации формы. На пользовательской форме, при вводе в поле названия страны должны появиться следующие данные: средняя цена на путевки в эту страну, макси мальная и минимальная цена на путевки...	VBA Вычислить значение выражения Составить программу вычисления числа 2^64– 1, в результате сохранить все цифры.
VBA Поиск и запись предыдущего значения https://www.cyberforum.ru/ vba/ thread1485451.html Добрый день! Надо организовать поиск и запись предыдущего значения по идентификатору.Есть два столбца: первый это номер, второй - значение, а в третий нужно записывать предыдущие значение выбранного номера. Например, по номеру "1" таблица будет выглядеть так: № Значение Предыдущие значение 1__ 10_______ХХ 3__ 15_______ХХ 1__ 40_______10 8__ 35_______ХХ	VBA Отправка почты в определенное время https://www.cyberforum.ru/ vba/ thread1485423.html Доброго времени суток! Подскажите, можно ли написать в VBA команду такую, чтобы за 5 дней до определенной даты из базы отправлялось письмо на электронную почту с предупреждением, что срок подходит. Как это реализовать? Я так понимаю база должна быть всегда включена и скрипт как то должен регулярно проверять время и дату... Как это сделать? Спасибо!
Не работает фильтр после записи Даты VBA Доброе утро. Выручайте, голову сломал. Если в екселе (Лист Бюджет) дату поставить вручную, то расширенный фильтр (условие: колонка справа) работает, а если дата сохранена в ячейку при записи из формы, то потом вручную запускаешь расширенный фильтр он уже не работает (не видит эту строчку). Помогите пожалуйста.	VBA Не закрывается Excel из скрипта VBS Суть в следующем: есть файл file.xls в качестве параметра передается WSCRIPT conv.vbs file.xls conv.vbs ниже Const xlFrmt = 56 Set objXl=CreateObject("Excel.Application") ObjXl.DisplayAlerts = FALSE Set oDoc=objXl.WorkBooks.Open(WScript.Arguments(0)) https://www.cyberforum.ru/ vba/ thread1485284.html
VBA Калькулятор(эффективности, ценовой, коммерческий) https://www.cyberforum.ru/ vba/ thread1485203.html Нужно сделать в виде макроса или же программой, но я не знаю как...	VBA Таймер для отмеривания времени трех участников Таймер должен быть рассчитан для отмеривания времени трех участников. При-чем запуск таймера для всех трех участников должен осуществляться одновре-менно при нажатии кнопки «Старт всем», а остановка – по кнопке «Стоп», соот-ветствующей участнику или «Стоп всем».
VBA Проверить что в ячейке находится время https://www.cyberforum.ru/ vba/ thread1484991.html Здравствуйте! Имеется таблица, допустим "программа передач" в которой имеется поле "начало программы" Как программно проверить что в ячейке действительно время? Вот допустим у меня содержимое ячеек столбца с датами проверяется таким образом на дату(пробовал тут, со временем так же делать-не работает) For Each q In Range(R) q.Select If Not IsDate(ActiveCell) Then ...	VBA Функция на подбор параметра Есть три ячейки: параметр, функционал, зависящий от параметра, и значение. Необходимо написать пользовательскую функцию, аргументами которой являются эти 3 ячейки. Функция должна возвращать значение параметра, при котором функционал достигает значения. При этом сам параметр не изменяется. Я написала так: Function goal(par As Range, func As Range, val As Double) As Variant Dim param As Range... https://www.cyberforum.ru/ vba/ thread1484874.html
VBA Нужно, чтобы в поле V формула считала при условии что в поле M стоит 0 привет нужно, чтобы в поле V формула считала при условии что в поле M стоит 0 в противном случае складывает значения из поля A :( моя формула =ЕСЛИ(ЕЧИСЛО(ПОИСКПОЗ(T13;$D$7:$D$21;0));СУММЕСЛИ($D$7:$D$21;T13;$A$7:$A$21)+0;0) суммирует все значения из поля А, а надо чтобы исключались те, где в поле М не равно 0 спасибо Добавлено через 1 минуту вроде прицепил файл, только не вижу где он,...	VBA Создание определенного/заданного количества Документов Word из Excel Здравствуйте, есть форма на ней Textbox (t1) и Button (b1), в t1 мы вводим количество на-мер 5 и жмем b1, и должно создаться 5 документов... Как это реализовать ? Спасибо заранее ) https://www.cyberforum.ru/ vba/ thread1484786.html

	23.06.2015, 10:41