VBA для входа на веб-страницу (определите, если это необходимо)

Question

VBA для входа на веб-страницу (определите, если это необходимо)

0

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

URL-адрес совпадает с его личной страницей или страницей loggedin. Я заметил, что на странице входа в систему есть элемент входа в систему, но не окно поиска. На зарегистрированной странице это наоборот. Отметив это, я попытался установить команду If, если я не вижу окно поиска, чтобы ввести информацию входа в систему.

Dim myElem as variant
Set myElem = IE.document.getElementById("ctl05_TextBoxSCN")
If (myElem = Null) Then
IE.document.getElementById("txtUsername").Value = Range("h1")
IE.document.getElementById("txtPassword").Value = Range("J1")
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "{Enter}", True
End If

но я все время получаю сообщение об ошибке: переменная объекта или переменная блока не задана

обратите внимание: ячейки h1 - это мое имя пользователя и пароль J1. и CT105_TextBoxSCN - это идентификатор для текстового поля, если я зарегистрирован.

TPJ87 25 нояб. 2013, в 04:28

Источник

0

В какой строке кода вы получаете ошибку?
Derek Tomes 25 нояб. 2013, в 03:00
1

Попробуй, If myElem Is Nothing
Tim Williams 25 нояб. 2013, в 03:15
0

myElem Is Nothing возвращает ошибку: недопустимое использование объекта
TPJ87 25 нояб. 2013, в 03:23
0

Моя ошибка находится на линии с myElem = Null Так как попытка проверить myElem = ничто не изменило сообщение об ошибке, и я знаю из предыдущего тестирования, что строки под ним будут работать. Если бы я добрался до строк ниже, я бы увидел, как текстовое поле веб-страницы отображает значение моей ячейки h1 на веб-странице.
TPJ87 25 нояб. 2013, в 03:48
1

Dim myElem as Object
Tim Williams 25 нояб. 2013, в 03:56
0

Я изменил Dim myElem как вариант на Dim myElem как объект в моей исходной опубликованной подпрограмме. Та же ошибка: переменная объекта не установлена
TPJ87 25 нояб. 2013, в 04:49
0

Является ли мой Set myElem = line правильным? это жизнеспособный способ увидеть, существует ли этот элемент?
TPJ87 25 нояб. 2013, в 04:57

Показать ещё 5 комментариев

Теги:

html

vba

excel

1 ответ

Ещё вопросы

В какой строке кода вы получаете ошибку?
myElem Is Nothing возвращает ошибку: недопустимое использование объекта
Моя ошибка находится на линии с myElem = Null Так как попытка проверить myElem = ничто не изменило сообщение об ошибке, и я знаю из предыдущего тестирования, что строки под ним будут работать. Если бы я добрался до строк ниже, я бы увидел, как текстовое поле веб-страницы отображает значение моей ячейки h1 на веб-странице.
Я изменил Dim myElem как вариант на Dim myElem как объект в моей исходной опубликованной подпрограмме. Та же ошибка: переменная объекта не установлена
Является ли мой Set myElem = line правильным? это жизнеспособный способ увидеть, существует ли этот элемент?

Tim Williams · Accepted Answer · 2013-11-25T03-27-00.000Z

Это сработало для меня:

Dim myElem as Object
Set myElem = IE.document.getElementById("ctl05_TextBoxSCN")
If myElem Is Nothing Then
    'element not found
Else
    'element found
End If

Чувак! Ты мужчина! Я думал, что напечатал это таким образом, после того, как твой милем - ничего не говорит, но, должно быть, что-то опечатал. Это работает! благодарю вас