Ошибки веб-Scaping надстроек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Ошибки веб-Scaping надстроек (Формулы/Formulas)

Matrix2021

Дата: Четверг, 28.01.2021, 12:06 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Привет, Excel поддерживает.

Пожалуйста, проявите ко мне терпение, поскольку мой родной язык - английский.

Мои опасения. Я использую 64-битный компьютер.

«Надстройки» не работают должным образом.

«Надстройки» рассчитаны на два пункта:

# 1 (scrap_Website_className)

Чтобы открыть каждую «книгу»> Удалите 19 веб-ссылок> Сохранить и закрыть книгу Затем снова откройте другую, пока не будет завершена надстройка, 184 книги.

Хорошая часть этих «надстроек».

Он обновляет все 184 файла.

Плохая сторона «надстроек».

Скопировал и вставил "html" код с некоторыми новостями.

Пожалуйста, посмотрите фото и одну из книг.

Это испортило все файлы в моей книге, сохранив их ...

«Надстройки» работают очень быстро, но портят файлы, сохраняя их.

К сообщению приложен файл: 2118185.jpg (22.8 Kb) · Australia-News-.xlsm (206.3 Kb)

501010

Сообщение отредактировал Matrix2021 - Четверг, 28.01.2021, 12:21

Ответить

Matrix2021

Дата: Четверг, 28.01.2021, 12:15 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Надстройка предназначена для удаления данных только из заголовка новостей. Который выделен на фото "СИНИЙ" ниже.

Также см. Ссылку ниже и Надстройки ...

https://tradingeconomics.com/australia/manufacturing-pmi

# 2 (M Запуск макроса MMM)

Ни разу не сработало ... Вы можете увидеть пример того, как это работает, нажав на «синюю» кнопку макроса во вкладке «Новости».

Однако это должно работать так:

Каждая ячейка данных на вкладке «Новости» представляет собой электронную таблицу.

Другими словами:

19 ячеек на вкладке «Новости» представляют 19 таблиц ...

Данные «PMI» из ячейки 3 передаются и вставляются во вкладку «PMI» ячейки 2.

Ячейка 4 "Non_PMI

«Данные передаются и вставляются во вкладку« Non_PMI »ячейки 2.

RCell 4 "B_Confi

"данные передаются и вставляются во вкладку" B_Confi "ячейки 2.

И т.д. Надеюсь, у вас есть фото.

Вы можете просмотреть файл и синий макрос во вкладке «Новости».

Он был разработан для обновления всех 184 рабочих книг.

Это не работает.

К сообщению приложен файл: 8771517.jpg (56.3 Kb) · News-Feed_xlam-.rar (32.5 Kb)

501010

Ответить

Serge_007

Дата: Четверг, 28.01.2021, 13:05 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте

Что сделать-то надо?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Matrix2021

Дата: Четверг, 28.01.2021, 17:06 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Спасибо, Админы ...

Необходимо сделать две вещи:

# 1 Чтобы исправить ошибку "HTML" надстройки из веб-ссылок и вставить только сводку новостей с веб-сайта во вкладку «Новости».

# 2 Исправить надстройки (M Запуск макроса MMM)

скопировать данные из вкладки «Новости» и вставить каждую ячейку в соответствующие вкладки »...

Надеюсь это поможет.

Что вы предлагаете мне делать в будущем?

заранее спасибо

501010

Сообщение отредактировал Matrix2021 - Четверг, 28.01.2021, 17:08

Ответить

Serge_007

Дата: Пятница, 29.01.2021, 11:25 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Matrix2021, вопрос точно по Excel?

Попробуйте сформулировать вопрос ещё раз, но уже по английски

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Matrix2021

Дата: Пятница, 29.01.2021, 21:56 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Hi Excel supporters

My native language is English, I hope my speech is clear.

I need your help with the add-on.

The add-in macro should ask for the name of the Sheet tab: the name Sites in the range A1 to A19. These are 19 web links, then select the data, copy only the website title and enter it in the name of another sheet tab: Name it “News” in the range “B3 to B21”.

Which confuses me. The add-on seems to work, but fills in all the data from every web page and inserts it into every cell ...

How can I get around this?

I'm not sure if the encoding given here is the source of the problem.

^{Sub scrap_Website ()
On Error Resume Next

Dim HTMLDoc As New HTMLDocument
Dim ieBrowser As New InternetExplorer
Dim lastRow As Byte, counter As Byte

Dim trow As Object

lastRow = WorksheetFunction.CountA (Worksheets ("Sites"). Range ("A: A"))

For counter = 1 To lastRow
'' '' '' '' Zzz
Application.StatusBar = "Books:" & ss & "-" & counter & "in" & lastRow & "time:" & Format (Time - ttt, "hh: nn: ss")
'' '' '' '' To Open website in Internet Explorer
'' '' '' 'ieBrowser.navigate Sheets ("Sites"). Range ("A" & counter)
'' '' '' '
'' '' '' 'Do
'' '' '' '' Wait till the Browser is loaded
'' '' '' 'Loop Until ieBrowser.readyState = READYSTATE_COMPLETE
'' '' '' 'Application.Wait (Now () + TimeValue ("00:00:03"))
'' '' '' '
'' '' '' 'Set HTMLDoc = ieBrowser.document
'' '' '' 'Sheets ("News"). Cells (counter + 2, 2) = HTMLDoc.getElementsByTagName ("h2") (0) .innerText

Sheets ("News"). Cells (counter + 2, 2) = GetHTTPResponse (Sheets ("Sites"). Range ("A" & counter))
Next

End Sub

Private Function GetHTTPResponse (ByVal sURL As String) As String
Dim oXMLHTTP
On Error Resume Next
Set oXMLHTTP = CreateObject ("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", sURL, False
.setRequestHeader "Cache-Control", "max-age = 0"
.setRequestHeader "User-Agent", "Mozilla / 5.0 (Windows NT 10.0; WOW64) AppleWebKit / 537.36 (KHTML, like Gecko) Chrome / 48.0.2564.41 Safari / 537.36 OPR / 35.0.2066.10 (Edition beta)"
.setRequestHeader "Accept-Encoding", "deflate"
.setRequestHeader "Accept-Language", "ru-RU, ru; q = 0.8, en-US; q = 0.6, en; q = 0.4"
.send
GetHTTPResponse = .responseText
End With
Set oXMLHTTP = Nothing
End Function}

Please view the add-on and worksheet for your understanding

К сообщению приложен файл: 5265704.jpg (33.1 Kb)

501010

Сообщение отредактировал Matrix2021 - Суббота, 30.01.2021, 16:30

Ответить

СообщениеHi Excel supporters

My native language is English, I hope my speech is clear.

I need your help with the add-on.

The add-in macro should ask for the name of the Sheet tab: the name Sites in the range A1 to A19. These are 19 web links, then select the data, copy only the website title and enter it in the name of another sheet tab: Name it “News” in the range “B3 to B21”.

Which confuses me. The add-on seems to work, but fills in all the data from every web page and inserts it into every cell ...

How can I get around this?

I'm not sure if the encoding given here is the source of the problem.

^{Sub scrap_Website ()
On Error Resume Next

Dim HTMLDoc As New HTMLDocument
Dim ieBrowser As New InternetExplorer
Dim lastRow As Byte, counter As Byte

Dim trow As Object

lastRow = WorksheetFunction.CountA (Worksheets ("Sites"). Range ("A: A"))

For counter = 1 To lastRow
'' '' '' '' Zzz
Application.StatusBar = "Books:" & ss & "-" & counter & "in" & lastRow & "time:" & Format (Time - ttt, "hh: nn: ss")
'' '' '' '' To Open website in Internet Explorer
'' '' '' 'ieBrowser.navigate Sheets ("Sites"). Range ("A" & counter)
'' '' '' '
'' '' '' 'Do
'' '' '' '' Wait till the Browser is loaded
'' '' '' 'Loop Until ieBrowser.readyState = READYSTATE_COMPLETE
'' '' '' 'Application.Wait (Now () + TimeValue ("00:00:03"))
'' '' '' '
'' '' '' 'Set HTMLDoc = ieBrowser.document
'' '' '' 'Sheets ("News"). Cells (counter + 2, 2) = HTMLDoc.getElementsByTagName ("h2") (0) .innerText

Sheets ("News"). Cells (counter + 2, 2) = GetHTTPResponse (Sheets ("Sites"). Range ("A" & counter))
Next

End Sub

Private Function GetHTTPResponse (ByVal sURL As String) As String
Dim oXMLHTTP
On Error Resume Next
Set oXMLHTTP = CreateObject ("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", sURL, False
.setRequestHeader "Cache-Control", "max-age = 0"
.setRequestHeader "User-Agent", "Mozilla / 5.0 (Windows NT 10.0; WOW64) AppleWebKit / 537.36 (KHTML, like Gecko) Chrome / 48.0.2564.41 Safari / 537.36 OPR / 35.0.2066.10 (Edition beta)"
.setRequestHeader "Accept-Encoding", "deflate"
.setRequestHeader "Accept-Language", "ru-RU, ru; q = 0.8, en-US; q = 0.6, en; q = 0.4"
.send
GetHTTPResponse = .responseText
End With
Set oXMLHTTP = Nothing
End Function}

Please view the add-on and worksheet for your understanding

Автор - Matrix2021
Дата добавления - 29.01.2021 в 21:56

Matrix2021

Дата: Пятница, 29.01.2021, 21:57 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Here are the files below

К сообщению приложен файл: Australia-News-.rar (190.3 Kb) · 3475576.rar (32.5 Kb)

501010

Сообщение отредактировал Matrix2021 - Пятница, 29.01.2021, 22:00

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Ошибки веб-Scaping надстроек (Формулы/Formulas)

Страница 1 из 1
1