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

Вход

Регистрация

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

 

= Мир MS Excel/Html код веб сайта - Мир MS Excel

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

Excel 2010
Мне необходимо взять html код с сайта zakupki.gov.ru
Конкретно по ссылке: https://zakupki.gov.ru/epz....eral=-1

По факту мне нужны только подобные строки:
<div class="d-flex registry-entry__header-mid align-items-center">
<div class="registry-entry__header-mid__number">
<a target="_blank"
href="https://zakupki.gov.ru/223/purchase/public/purchase/info/common-info.html?regNumber=32009694550">
№ 32009694550
т.е. номер контракта и ссылка на него.
Вроде бы никаких проблем даже не намечалось, но в полученном файле никакой подобной ссылки нет и в помине.

Вот такой код:
Private Sub CommandButton1_Click()
Cells.Clear

On Error Resume Next
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
sURL = TextBox1.Value
With oXMLHTTP
.Open "GET", sURL, False
.send
End With
GetHTTPResponse = oXMLHTTP.responseText

HomeDir$ = ThisWorkbook.Path
Open HomeDir$ + "\file2.csv" For Output As #1
Print #1, CStr(GetHTTPResponse)
Close #1
Set oXMLHTTP = Nothing

Workbooks.OpenText Filename:=HomeDir$ + "\file2.csv"
With ActiveWorkbook
.ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).[a1].Cells
.Close (True)
End With

MsgBox ("Работа завершена")
End Sub

Но вместо необходимой информации что-то совершенно постороннее.

Подскажите, пожалуйста, в чем может быть проблема? Я использую какой-то неподходящий способ? Или в коде есть ошибки?
К сообщению приложен файл: test.xlsm(84.4 Kb)
 
Ответить
СообщениеМне необходимо взять html код с сайта zakupki.gov.ru
Конкретно по ссылке: https://zakupki.gov.ru/epz....eral=-1

По факту мне нужны только подобные строки:
<div class="d-flex registry-entry__header-mid align-items-center">
<div class="registry-entry__header-mid__number">
<a target="_blank"
href="https://zakupki.gov.ru/223/purchase/public/purchase/info/common-info.html?regNumber=32009694550">
№ 32009694550
т.е. номер контракта и ссылка на него.
Вроде бы никаких проблем даже не намечалось, но в полученном файле никакой подобной ссылки нет и в помине.

Вот такой код:
Private Sub CommandButton1_Click()
Cells.Clear

On Error Resume Next
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
sURL = TextBox1.Value
With oXMLHTTP
.Open "GET", sURL, False
.send
End With
GetHTTPResponse = oXMLHTTP.responseText

HomeDir$ = ThisWorkbook.Path
Open HomeDir$ + "\file2.csv" For Output As #1
Print #1, CStr(GetHTTPResponse)
Close #1
Set oXMLHTTP = Nothing

Workbooks.OpenText Filename:=HomeDir$ + "\file2.csv"
With ActiveWorkbook
.ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets(1).[a1].Cells
.Close (True)
End With

MsgBox ("Работа завершена")
End Sub

Но вместо необходимой информации что-то совершенно постороннее.

Подскажите, пожалуйста, в чем может быть проблема? Я использую какой-то неподходящий способ? Или в коде есть ошибки?

Автор - Anper10
Дата добавления - 27.11.2020 в 16:40
CaramelManiac Дата: Пятница, 27.11.2020, 18:52 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 22 ±
Замечаний: 0% ±

MS Excel 2003-2019
Здравствуйте.
В коде ошибок нет, он работает исправно. В выгрузке, которую он делает по приложенной вами ссылке, находится 4 совпадения, которые Вас интересуют.
Судя по тому html-коду, который загрузился в Лист1 приложенного вами файла, Вы обращаетесь не к той странице.
Проверьте какую ссылку Вы скармливаете своему скрипту.


Сообщение отредактировал CaramelManiac - Пятница, 27.11.2020, 18:53
 
Ответить
СообщениеЗдравствуйте.
В коде ошибок нет, он работает исправно. В выгрузке, которую он делает по приложенной вами ссылке, находится 4 совпадения, которые Вас интересуют.
Судя по тому html-коду, который загрузился в Лист1 приложенного вами файла, Вы обращаетесь не к той странице.
Проверьте какую ссылку Вы скармливаете своему скрипту.

Автор - CaramelManiac
Дата добавления - 27.11.2020 в 18:52
Pelena Дата: Пятница, 27.11.2020, 21:55 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 17631
Репутация: 3926 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Anper10, оформите код тегами с помощью кнопки # в режиме правки поста.
Помогающих прошу не отвечать до исправления замечания


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеAnper10, оформите код тегами с помощью кнопки # в режиме правки поста.
Помогающих прошу не отвечать до исправления замечания

Автор - Pelena
Дата добавления - 27.11.2020 в 21:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Html код веб сайта (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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