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

kwin_zh

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

大神 我觉得是不是这个NG-MODEL的原因，也每个ID 以前都是。elementbyid().value=""的，但这个只有Name，用All也试过，就是不行~~~
还请大神帮忙！！感谢！

kwin_zh

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

内部网址，需要VPN环境或者公司内网。所以我把输入框的代码发出来了，只要能解决这个VBA控制输入、提交的问题即可，其他的我应该都可以搞定

感谢啦，您如果需要别的什么代码 我再发您

northwolves

IE什么版本？一般有name可以直接all调用的

kwin_zh

以前都用ie11，最近换了以后用ie登录时输入我的帐号密码后点击登录没反应，用vba调用ie打开网页后同样遇到点击登录没反应的问题，但是用火狐或者360就可以 ，我设置360为ie代理模式，用vba调用ie时直接打开的360，就能登录了。

kwin_zh

以前都用ie11，最近换了以后用ie登录时输入我的帐号密码后点击登录没反应，用vba调用ie打开网页后同样遇到点击登录没反应的问题，但是用火狐或者360就可以 ，我设置360为ie代理模式，用vba调用ie时直接打开的360，就能登录了。

kwin_zh

内部网网页 即使有网址也不行的。

northwolves

理论上这个可行：

1. Sub 填表()
   
2.     Dim IE As Object, url As String
   
3.     url = "*.htm"    '你的网址
   
4.     For Each IE In CreateObject("Shell.Application").Windows
   
5.         If IE.LocationURL Like url Then Exit For
   
6.     Next
   
7.     If IE Is Nothing Then MsgBox "请先使用IE浏览器打开网页""" & url & """!", vbCritical, "警告": Exit Sub
   
8.     With IE.Document
   
9. 
   
10.         .getelementsbyclassname("n-text-ipt n-w120 mr40 ng-pristine ng-valid ng-empty ng-touched")(0).Value = "Obama"
    
11.         .getelementsbyclassname("n-text-ipt n-w120 mr40 ng-pristine ng-untouched ng-valid ng-empty")(0).Value = "1391234567"
    
12.         .getelementsbyclassname("crm-btn")(0).Click
    
13. 
    
14.         Do While IE.Busy
    
15.             DoEvents
    
16.         Loop
    
17.     End With
    
18. End Sub
    

复制代码

kwin_zh

northwolves 发表于 2017-6-18 22:41
理论上这个可行：

大神，今天来公司试了一下，前面输入进去数值都可以，但是“”crm-btn“”.click这一步提交后，提示“姓名栏不能为空”“”，可是F8测试时网页面的姓名框里缺失已经输入文字了，这个很奇怪，我尝试直接键盘输入文字后，点击按钮，就不会提示了，难道VBA填入的数值和键盘输入的还不一样么？
求大神帮忙，就这最后一步了~

kwin_zh

求大神关注

northwolves

试试

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

复制代码