VBA向网页文本框赋值，试了很长时间不成功，求高手来帮忙。

maolin23 · 发表于 2019-1-30 16:18

由于是公司内网，无法发到论坛，截取了一段网页源码，请帮忙看看，谢谢。

我的VBA代码：
Public Sub 登陆()
'引用Microsoft Internet Controls
Dim IE
On Error Resume Next
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
  IE.Navigate URL:="http://13.18.100.77:2011/BKYCky/"
      Do Until IE.ReadyState = 4
         DoEvents
      Loop
IE.Document.getElementsbyTagName("accountcode")(0).Value = "EEEE"

Set IE = Nothing
Set ID = Nothing
End Sub

如下的截取的网页源码，不知是否够用，如还需要其它信息，请大神告知。
需要将accountcode赋值"EEEE"
<body>
<div class="navbar-inner">
  <img src="/AAAA/image/flowctl/book/Login.png" width="165" height="39"></div>
<div id="login-container">
<div id="login-header"> </div>

<div id="login-content" class="clearfix">
   <div id="login-input">
<form action="/AAAA/pubDesklogin.do" name="DeskloginForm" method="post">
   <fieldset>
         <div class="control-group"  >
            <label class="control-word" for="username">用户登录</label>
         </div>
         <div class="control-group">
            <label class="control-label" for="username">用户名：</label>
            <input name="accountcode" value="" type="text" style="width:130px"/></td>
         </div>

changhong8 · 发表于 2019-1-31 07:31

本帖最后由 changhong8 于 2019-1-31 07:35 编辑

getElementsbyTagName改成getElementbyid,后面的(0)去掉

maolin23 · 发表于 2019-1-31 08:58

changhong8 发表于 2019-1-31 07:31
getElementsbyTagName改成getElementbyid,后面的(0)去掉

不行呀，还是没反应

changhong8 · 发表于 2019-1-31 09:32

内网的调试不了

		自动登录	找回密码
密码			免费注册

VBA向网页文本框赋值，试了很长时间不成功，求高手来帮忙。

最新热点 /1