【求助】使用VBA输入数据到网页后，点击提交，提示“”数据为空，请输入“”

kwin_zh

各位大神：

使用VBA输入数据到网页后，点击提交，提示“”数据为空，请输入“”
可还是我再F8状态下明明看到已经输入名字和手机了，为啥点击搜索后，还会提示我没输入？

以下我的代码：
--------------------------------------------

Sub 自动填写表单()
   On Error Resume Next
     With CreateObject("internetexplorer.application")
         .Visible = True
         .Navigate "https://**********"                                       '打开网站
         Do Until .ReadyState = 4
             DoEvents
         Loop

        .Document.getelementsbyclassname("***")(0).Value = “”张三“”                       '输入学员名字
        .Document.getelementsbyclassname("***")(1).Value = “”“15115115111”          '输入手机号码
        .Document.All.tags("button")(0).Click                                                             '点击搜索
       On Error Resume Next
        .Document.forms(0).submit
     End With

End Sub




--------我是分割线--------------------------------
这一部分源代码如下：

<!-- 内容开始 -->
	<link href="https://*******" rel="stylesheet">
	<div class="col-xs-10 right-content">
	<div class="right-content-top">
	<form>
	<div class="n-search">
	<span>姓名：</span><input type="text" class="n-text-ipt n-w120 mr40" name="realName" ng-model="search.realName"/>
	<span>手机号：</span><input type="text" class="n-text-ipt n-w120 mr40" name="mobile" ng-model="search.mobile"/>
	<button type="button" class="crm-btn" ng-click="submitMemberSearch()"><em class="icon-serch"></em>搜索</button>
	<button type="reset" class="crm-btn-b" ng-click="clearMemberSearch()"><em class="icon-reset"></em>重置</button>
	</div>
	</form>
	</div>
	<div class="right-content-main bind-main" ng-if="retMsg==-1">
	<div class="m-binded">
	<span><img src="url***" alt=""></span>
	<p>无该学员信息</p>
	</div>
	</div>
	<div class="right-content-main bind-main" ng-if="retMsg==1">
	<div class="m-binded">
	<span><img src="url" alt=""></span>
	<p>该学员已毕业或未入学</p>
	</div>
	</div>
	<div class="right-content-main bind-main" ng-if="retMsg==2">
	<div class="m-binded">
	<span><img src="url" alt=""></span>
	<p>该学员已经注册，无需重复注册</p>
	</div>
	</div>
	<div class="right-content-main" ng-if="retMsg==0">
	<table id="treeTable1" class="cm-table">
	<tr>
	<td class="n-td n-td01">专业方向</td>
	<td class="n-td n-td02">入学时间</td>
	<td class="n-td n-td03">学号</td>
	<td class="n-td n-td04">班级</td>
	<td class="n-td n-td05">操作</td>
	</tr>
	<tr ng-repeat="m in memberList">
	<td class="n-td n-td01">{{m.channelCode}}</td>
	<td class="n-td n-td02">{{m.registerTime | limitTo:10}}</td>
	<td class="n-td n-td03">{{m.fromMemberId>0?x.fromMemberId:"--"}}--</td>
	<td class="n-td n-td04">{{m.fromMemberId>0?"已注册":"--"}}--</td>
	<td class="n-td n-td05"><button class="crm-btn-b" ng-click="bind(m.id)">录入</button></td>
	</tr>
	</table>
	</div>
	</div>

kwin_zh

感谢各位大神了~~求帮助

kwin_zh

？？？大神

liu-aguang

是angular网页. 值是通过捕获键盘输入或焦点变化来获取的.

kwin_zh

liu-aguang 发表于 2017-6-25 08:41
是angular网页. 值是通过捕获键盘输入或焦点变化来获取的.

大哥，对于这个网页的代码，具体该怎么写呢？用VBA可以实现这个效果不？感谢

kwin_zh

??求求大神不吝赐教本小白~

jokklx

Dim mShellwindows As New ShellWindows, IE As InternetExplorer
For Each IE In mShellwindows
                If IE.LocationURL Like "http://xxxxxxxxxx*" Then Exit For
            Next
            With IE.Document
                .Document.all("realName").Value = "姓名"'在姓名里输入姓名
                .Document.all("realName").Focus'姓名文本框获得焦点
                SendKeys "{enter}"'敲一下回车，模拟手动输入，若回车不行，就敲一下tab，你手动看看，有的说不定获得焦点，失去焦点就能模拟手工操作。我以前做过一个，填入内容没问题，但每个文本框都必须敲一下回车才能完成验证，否则不行。
end with

kwin_zh

jokklx 发表于 2017-6-26 17:28
Dim mShellwindows As New ShellWindows, IE As InternetExplorer
For Each IE In mShellwindows
        ...

老师你好，我用您的方法，是可以获得焦点并且输入，但是结果还是提示“姓名输入为空”，也试了TAB。这个是ANGULAR js 写的网页，NG-MODEL我查了下是绑定元素，但是怎么给这个元素赋值就不知道了，用之前的getelementbyid().value="张三"的方法不行~~~

求赐教~

liu-aguang

kwin_zh 发表于 2017-6-26 15:30
大哥，对于这个网页的代码，具体该怎么写呢？用VBA可以实现这个效果不？感谢

可以用fiddler记录一下手动登陆的过程, 然后用其它组件,如msxml2.http等采集.

jokklx

kwin_zh 发表于 2017-6-26 21:44
老师你好，我用您的方法，是可以获得焦点并且输入，但是结果还是提示“姓名输入为空”，也试了TAB。这个 ...

你这个登录完是要做什么操作吗？不然直接抓包，用msxml2之类直接提交数据完成登录，不用ie浏览器了。ie浏览器限制太多了。