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

Вход

Регистрация

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

 

= Мир MS Excel/Ошибки веб-Scaping надстроек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Ошибки веб-Scaping надстроек (Формулы/Formulas)
Ошибки веб-Scaping надстроек
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
 
Ответить
СообщениеПривет, Excel поддерживает.

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

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

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

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

# 1 (scrap_Website_className)

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

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

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

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

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

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

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

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

Автор - Matrix2021
Дата добавления - 28.01.2021 в 12:06
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
 
Ответить
СообщениеНадстройка предназначена для удаления данных только из заголовка новостей. Который выделен на фото "СИНИЙ" ниже.

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

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 рабочих книг.

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

Автор - Matrix2021
Дата добавления - 28.01.2021 в 12:15
Serge_007 Дата: Четверг, 28.01.2021, 13:05 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 13701
Репутация: 2299 ±
Замечаний: ±

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

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


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

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

Автор - Serge_007
Дата добавления - 28.01.2021 в 13:05
Matrix2021 Дата: Четверг, 28.01.2021, 17:06 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

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

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

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

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


501010

Сообщение отредактировал Matrix2021 - Четверг, 28.01.2021, 17:08
 
Ответить
СообщениеСпасибо, Админы ...

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

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

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

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

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

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

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

Автор - Matrix2021
Дата добавления - 28.01.2021 в 17:06
Serge_007 Дата: Пятница, 29.01.2021, 11:25 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 13701
Репутация: 2299 ±
Замечаний: ±

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

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


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеMatrix2021, вопрос точно по Excel?

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

Автор - Serge_007
Дата добавления - 29.01.2021 в 11:25
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
 
Ответить
СообщениеHere are the files below

Автор - Matrix2021
Дата добавления - 29.01.2021 в 21:57
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Ошибки веб-Scaping надстроек (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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