Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Не считывается полностью код сайта - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не считывается полностью код сайта (Макросы/Sub)
Не считывается полностью код сайта
uran32rus Дата: Понедельник, 22.11.2021, 21:53 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, пытаюсь считать код сайта в файл, но почему то считывается не весь сайт, а только тэги верхнего уровня и все, а нужен весь код, чтобы потом вытащить инфу из поля статус. Камнями не забрасывайте, я чайник))).

[vba]
Код

Sub Кнопка1_Щелчок()
Dim str1 As String
Dim ff As Integer

str1 = GetResult("5036114307")
ff = FreeFile
Open ThisWorkbook.Path & "\blank.txt" For Output As ff
Write #ff, str1
Close #ff
        
  
End Sub

Function GetResult(inn As String) As String
    Dim url As String
    url = "https://fedresurs.ru/search/entity?code=" & inn
    Dim XMLHTTP As Object, ret As String
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Send
    ret = XMLHTTP.ResponseText
    GetResult = ret
    
End Function
[/vba]
 
Ответить
СообщениеЗдравствуйте, пытаюсь считать код сайта в файл, но почему то считывается не весь сайт, а только тэги верхнего уровня и все, а нужен весь код, чтобы потом вытащить инфу из поля статус. Камнями не забрасывайте, я чайник))).

[vba]
Код

Sub Кнопка1_Щелчок()
Dim str1 As String
Dim ff As Integer

str1 = GetResult("5036114307")
ff = FreeFile
Open ThisWorkbook.Path & "\blank.txt" For Output As ff
Write #ff, str1
Close #ff
        
  
End Sub

Function GetResult(inn As String) As String
    Dim url As String
    url = "https://fedresurs.ru/search/entity?code=" & inn
    Dim XMLHTTP As Object, ret As String
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Send
    ret = XMLHTTP.ResponseText
    GetResult = ret
    
End Function
[/vba]

Автор - uran32rus
Дата добавления - 22.11.2021 в 21:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не считывается полностью код сайта (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!