Question

我正在处理自动Web表单填充，但是当我的代码不在我要填充数据的网页上工作时卡住了。

但是目前我的代码正在其他网站上运行。我不知道为什么它在那里不起作用。我正在执行的操作是在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

sample html - image1

When I am changing my id - "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="">

通过宏（VBA）自动填写Web表单时遇到的问题

0 个答案: