Excel VBA Runtime Ошибка 13, Несоответствие типов - PullRequest
0 голосов
/ 16 января 2019

Относительно новый для VBA.

По сути, я пытаюсь написать функцию VBA, которая входит в онлайн-форму входа. На данный момент у меня есть макрос, который может открыть Internet Explorer по правильному URL, ввести имя пользователя, однако он не проходит мимо этой точки (то есть поле пароля не заполнено и кнопка «войти») не нажимается), и дает мне ошибку времени выполнения 13 «несоответствие типов». Странно (по крайней мере для меня), когда я вынимаю строку кода, которая заполняет имя пользователя, строка кода под ним, которая вводит поле пароля, неожиданно работает отлично (хотя кнопка входа в систему по-прежнему не нажата). Опять же, если я уберу обе строки кода, которые заполняют поля имени пользователя и пароля, строка кода, которая «нажимает» кнопку входа, работает отлично. Коды ошибок, которые я получаю по всем этим сценариям, одинаковы. Мой код для этого раздела до сих пор выглядит следующим образом:

Set UserN =IE.Document.GetElementByID("login_username").SetAttribute("Value", "ExampleUser")
Set PassW = IE.Document.GetElementByID("login_entered_password").SetAttribute("Value", "ExamplePass")
Set AllHyperLinks = IE.Document.GetElementsByClassName("label-content")
 For Each hyper_link In AllHyperLinks
     If hyper_link.innerhtml = "Sign in" Then
         hyper_link.Click
         Exit For
     End If
 Next

Учитывая, что я могу заставить каждую из этих функций "Set" работать независимо (только не все одновременно / последовательно), я предполагаю, что ссылаюсь на правильные теги "ID" в html doc.

Я предполагаю, что это означает, что моя ошибка лежит где-то в моем синтаксисе.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...