hmanhha Ответов: 0

Vba error "run-time error '424' object require

Я пытаюсь соскрести данные из интернета. Но у меня есть эта ошибка.

Что я уже пробовал:

Sub testBid()
Dim link As String
        link = "https://www.freelancer.com/projects/php/creating-notification-warning-system/"
        MsgBox (FuncUpdateBid(link))
        'MsgBox (FuncProBudget(link))
End Sub

Function FuncUpdateBid(ByVal Plink As String) As String
    Dim appIE As InternetExplorer
    Set appIE = CreateObject("internetexplorer.application")
    With appIE
        .navigate Plink
        .Visible = True
    End With
    Do While appIE.Busy
        DoEvents
    Loop
    Dim sbid As String
    'Dim Bid As Object
    Dim Bid As IHTMLElement
    Set Bid = appIE.document.getElementById("num-bids")<pre>' <-- error code 424, object required


'Подать заявку = appIE.документ.метод getelementsbytagname("ням-заявки")
sbid = ставка.через свойство innerText
FuncUpdateBid = sbid
'FuncUpdateBid = Ставка.через свойство innerText
appIE.Бросить
Set appIE = ничего
Конечная Функция

Maciej Los

Какая линия?

Richard MacCutchan

Используйте функцию отладки макросов для пошагового выполнения кода. Тогда вы можете ясно видеть, какой объект не устанавливается.

hmanhha

Set Bid = appIE.document.getElementById("num-bids") ' <-- код ошибки 424, требуется объект

Richard MacCutchan

Быстрый просмотр источника этой страницы показывает, что "num-bids" не существует. Что-то, что вы могли бы найти для себя довольно легко.

Maciej Los

Ястребиный глаз!

Richard MacCutchan

Ctrl-F на самом деле.

hmanhha

Так оно и есть.

див ИД="количество заявок" класс="текст-синий более смелые"и GT;

7


</div

Richard MacCutchan

Вы, должно быть, смотрите на другую страницу, отличную от той, которую вы разместили в своем вопросе. Я пробовал три раза, и он до сих пор не может найти никаких предметов с таким именем.

hmanhha

"
7


"

Нет, это не так.

hmanhha

Функция FuncUpdateBid(ByVal Plink As String) As String
Dim appIE как InternetExplorer
Set appIE = CreateObject("internetexplorer.application")
С Аппи
.перейдите Плинк
.Видимое = Истинное
Конец С
Делай, пока Аппи.занят
Функция doevents
Петля
Dim sbid как строка
- Тусклая Ставка Как Объект
Дим Заявки Как IHTMLElement
Set Bid = appIE.document.getElementById("num-bids") ' <-- код ошибки 424, требуется объект
'Подать заявку = appIE.документ.метод getelementsbytagname("ням-заявки")
sbid = ставка.через свойство innerText
FuncUpdateBidV1 = sbid
'FuncUpdateBid = Ставка.через свойство innerText
appIE.Бросить
Set appIE = ничего
Конечная Функция

Richard MacCutchan

Это говорит о том, что элемент "num-bids" не может быть найден.

0 Ответов