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

kwin_zh · 发表于 2017-6-16 17:55

各位大神，因为要用VBA填写网页内的文本框，并点击搜索按钮，
但是网页内的文本框没有ID只有Name、class和ng-model这些，

如何用VBA输入值到【客户姓名】【手机号】这两个框并且点击搜索呢？

代码如下：

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

能够解决的大神，微信红包您 ^_^~~~~~~~~~~~~~
所有感谢都在红包里~~

kwin_zh · 发表于 2017-6-16 22:10

666666666666666666666666

kwin_zh · 发表于 2017-6-17 00:13

求大神帮忙

7433518 · 发表于 2017-6-17 21:33

kwin_zh 发表于 2017-6-17 00:13
求大神帮忙

网址呢?我试试

kwin_zh · 发表于 2017-6-17 21:56

本帖最后由 kwin_zh 于 2017-6-18 22:19 编辑

7433518 发表于 2017-6-17 21:33
网址呢?我试试

<!DOCTYPE html>
<html lang="zh-CN">
<head>
<meta charset="utf-8">

kwin_zh · 发表于 2017-6-17 21:57

本帖最后由 kwin_zh 于 2017-6-17 22:12 编辑

<!DOCTYPE html>
<html lang="zh-CN">
<head>
      <meta charset="utf-8">
      <meta http-equiv="X-UA-Compatible" content="IE=edge">
      <meta name="viewport" content="width=device-width, initial-scale=1">

</body>

</html>

duquancai · 发表于 2017-6-17 23:43

kwin_zh 发表于 2017-6-17 21:57

红包在哪里？多少？

northwolves · 发表于 2017-6-18 05:38

'引用:
'Library SHDocVw
' C:\WINDOWS\system32\SHDOCVW.dll
' Microsoft Internet Controls
Sub 填表()
Dim mShellwindows As New ShellWindows, IE As InternetExplorer, url As String
url = "*.htm" '你的网址
For Each IE In mShellwindows
If IE.LocationURL Like url Then Exit For
Next
If IE Is Nothing Then MsgBox "请先使用IE浏览器打开网页""" & url & """!", vbCritical, "警告": Exit Sub
With IE.Document
.all("realName").Value = "张三"
.all("mobile").Value = "1391234567"
.getElementsByClassName("crm-btn").Click
Do While IE.Busy
DoEvents
Loop
End With
End Sub

复制代码

kwin_zh · 发表于 2017-6-18 16:51

duquancai 发表于 2017-6-17 23:43
红包在哪里？多少？

你觉得要多少？

kwin_zh · 发表于 2017-6-18 16:52

northwolves 发表于 2017-6-18 05:38

貌似不行这个代码是ANGULAR编写的

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

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