【急】网页内的文本框没有ID只有Name，如何用VBA输入

kwin_zh

northwolves 发表于 2017-6-20 17:33
试试

这句代码要加在哪里呢？

各位大神：

使用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

kwin_zh

northwolves 发表于 2017-6-20 17:33
试试

能不能加个微信，发个红包给您~~^_^

kwin_zh

我加在输入后面，然后提示这个

kwin_zh

northwolves 发表于 2017-6-20 17:33
试试

大神，您下班了么？

northwolves

kwin_zh 发表于 2017-6-20 17:47
我加在输入后面，然后提示这个

.parentWindow.execScript "submitMemberSearch()", "JavaScript"

northwolves

1. Sub 自动填写表单()
   
2.    On Error Resume Next
   
3.      With CreateObject("internetexplorer.application")
   
4.          .Visible = True
   
5.          .Navigate "https://**********"                                       '打开网站
   
6.          Do Until .ReadyState = 4
   
7.              DoEvents
   
8.          Loop
   
9. 
   
10.         .Document.getelementsbyclassname("***")(0).Value = “”张三“”                       '输入学员名字
    
11.         .Document.getelementsbyclassname("***")(1).Value = “”“15115115111”          '输入手机号码
    
12.         .Document.parentWindow.execScript "submitMemberSearch()", "JavaScript"                                            '点击搜索
    
13.        On Error Resume Next
    
14.         .Document.forms(0).submit
    
15.      End With
    
16. 
    
17. End Sub

复制代码

kwin_zh

northwolves 发表于 2017-6-20 18:17

.Document.parentWindow.execScript "submitMemberSearch()", "JavaScript"

您好，我试了很久，可是就是最后这一步不行，代码放上去后F8测试没有任何反应。我把原来的doc.getelementsbyclassname("***")(0).Click放在您的这行代码后，您代码那一步没反应，到这一步Click后仍旧提示让输入姓名，姓名栏为空。

这个网页的逻辑是【输入姓名-输入手机-点击搜索-查到结果就会显示一个表格，最后一项操作是个录入按钮，俺就提交即可，如果没有查到结果，就会显示其他的，然后点击重置按钮重新输入下一个】

源代码如下：还请大神再帮忙！！！跪谢！
<div class="col-xs-10 right-content">
    <div class="right-content-top">
        <form class="ng-pristine ng-valid">
            <div class="n-search">
                <span>学员姓名：</span><input type="text" class="n-text-ipt n-w120 mr40 ng-pristine ng-valid ng-empty ng-touched" name="realName" ng-model="search.realName">
                <span>手机：</span><input type="text" class="n-text-ipt n-w120 mr40 ng-pristine ng-untouched ng-valid ng-empty" 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>
    <!-- ngIf: retMsg==-1 -->
    <!-- ngIf: retMsg==1 -->
    <!-- ngIf: retMsg==2 -->
    <!-- ngIf: retMsg==0 -->
</div>

再感谢！

northwolves

1.         .Document.getelementsbyclassname("n-text-ipt n-w120 mr40 ng-pristine ng-valid ng-empty ng-touched")(0).Value = ”张三”                       '输入学员名字
   
2.         .Document.getelementsbyclassname("n-text-ipt n-w120 mr40 ng-pristine ng-untouched ng-valid ng-empty")(0).Value = “15115115111”

复制代码

kwin_zh

我就是这么写的  不过名字输入我写的是Document.getelementsbyclassname("n-text-ipt n-w120 mr40")(0).Value = Cells(2, 1).Value                                                    '输入名字
        .Document.getelementsbyclassname("n-text-ipt n-w120 mr40 ng-pristine ng-untouched ng-valid ng-empty")(1).Value = Cells(2, 3).Value         '输入手机

classname和您写的不太一样，不过也能输入上去。

kwin_zh

-----我是分割线--------------------------------
这一部分源代码如下：
<!-- 内容开始 -->
        <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>