Я работаю над автозаполнением веб-формы, но застреваю, когда мой код не работает на веб-странице, где я хочу заполнить данные.
Но в настоящее время мой код работает на других сайтах. Я не знаю, почему там не работает. И где я это делаю, работает на LF сервере.
Public Sub Getdata()
Dim ie As Object
Dim doc As HTMLDocument
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://eforms.company_name.com/lfserver/E2844_Proposal_Summary" '(example URL)
Do
DoEvents
Loop Until ie.ReadyState = 4
ie.document.getElementById("bid_manager_name").Value = "samplename"
ie.document.getElementById("bid_manager_id").Value = "sampleid"
End Sub
Пример HTML - изображение1
Когда я меняю свой идентификатор - "bid_manager_name" - image2
Я не смогу поделиться внутренней ссылкой, где я на самом деле работаю. Но любое предположение будет полезно, и почему это не работает. Если вам требуется какая-либо информация на веб-сайте (html), пожалуйста, спросите меня, я постараюсь предоставить вам. Заранее спасибо.
<input name="bid_manager_name" tabindex="43" title="Bid Manager name" class="transparentTxtEntry" id="bid_manager_name" style="margin: 0in; border: 1px solid rgb(177, 177, 177); left: 237%; top: 122%; width: 335%; height: 20%; text-align: left; color: rgb(0, 0, 0); line-height: 1.11; font-family: Arial; font-size: 100%; visibility: visible; position: absolute; z-index: 29; background-color: rgb(216, 216, 216);" type="text" value="">