getelementbyid через msexcel vba требуется объект 424

Я изо всех сил пытался получить код getelementbyid (или имя). Что я хочу сделать, это отправить данные для входа без использования sendkeys. Наверное, это вопрос не понимания сайта. Я могу просмотреть элемент,getelementbyid через msexcel vba требуется объект 424

MsgBox (середина (ObjIE.Document.frames (1) .Document.body.outerHTML, 1800, 1000))

, который показывает ID = имя пользователя и имя = Имя пользователя. Но когда я пытаюсь getelementbyid, он придумывает объект, требующий ошибки, как будто его там нет.

источник

2013-06-11 user2473828

Я считаю, что его bcoz элементы являются расположенных внутри рамок. Возможно ли вам поделиться ссылкой? – Santosh

вы можете сослаться на эту [ссылку] (http://www.vbaexpress.com/forum/showthread.php?t=40649) – Santosh

Да, я потратил много времени, пытаясь обойти эти рамки, но просто могу Кажется, что-то не работает. Веб-сайт находится здесь: http://fieldwork.genesisenergy.co.nz/ – user2473828

Здесь вы идете

Вместо этого URL http://fieldwork.genesisenergy.co.nz/

Я непосредственно навигации ниже кадра ЦСИ

<frame name="Login" src="LoginGenesis.aspx?bgColor=FFFFFF&trimColor=FF6600" frameBorder="0" marginWidth="0" marginHeight="0" scrolling="auto">

Sub Website() 

    Dim IE As Object, Doc As Object, UserName As Object, Password As Object, strCode As String 


    Set IE = CreateObject("internetexplorer.application") 
    IE.Visible = True 
    ' IE.navigate "http://fieldwork.genesisenergy.co.nz/" 

     IE.navigate "http://fieldwork.genesisenergy.co.nz/LoginGenesis.aspx?bgColor=FFFFFF&trimColor=FF6600" 

     Do While IE.readystate <> 4: DoEvents: Loop 

     Set Doc = CreateObject("htmlfile") 
     Set Doc = IE.document 

     Set UserName = Doc.getelementbyid("userName") 
     UserName.Value = "santosh" 


     Set Password = Doc.getelementbyid("userPassword") 
     Password.Value = "[email protected]" 


     Set btnLogin = Doc.getelementbyid("loginUser") 
     btnLogin.Click 
End Sub

источник

2013-06-11 10:00:22 Santosh

Я не могу поблагодарить вас за то, что вы нашли время, чтобы написать все это. Он работает отлично. Мне не пришло в голову перейти к самому кадру, так что вы спасли мне много часов разочарования! – user2473828

@ user2473828 Happy to Help :) – Santosh

Просто последнее. Когда я пытаюсь сделать это с помощью законного пользователя, он срабатывает после нажатия клавиши отправки и возвращается с этой ошибкой: «window.parent.frames.1.location» является нулевым или нет объектом Строка: 41 Char: 6 Код: 0 URI: http://fieldwork.genesisenergy.co.nz/LoginGenesis.aspx?bgColor=FFFFFF&trimColor=FF6600 Любые идеи? – user2473828

getelementbyid через msexcel vba требуется объект 424

ответ

Смежные вопросы