Здравствуйте, пытаюсь считать код сайта в файл, но почему то считывается не весь сайт, а только тэги верхнего уровня и все, а нужен весь код, чтобы потом вытащить инфу из поля статус. Камнями не забрасывайте, я чайник))).
[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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
