[求助]单位网页 自动填表[已解]

lukeluckc

蓝天630902 发表于 2013-3-11 12:59

高手，请帮忙分析下我这段代码的问题吧？
同样的代码，更换网址后测试失败，而使用帖子中163邮箱网址则程序能够正常进行。

1. Sub Goto163()
   
2. Dim i As Byte
   
3.     url2 = "https://honeywellprod.sharepoint.com/teams/HoneywellXian/_layouts/15/FormServer.aspx?XsnLocation=https://honeywellprod.sharepoint.com/teams/HoneywellXian/DocLib/Forms/template.xsn&SaveLocation=https%3A%2F%2Fhoneywellprod%2Esharepoint%2Ecom%2Fteams%2FHoneywellXian%2FDocLib&ClientInstalled=false&DefaultItemOpen=1&Source=https%3A%2F%2Fhoneywellprod%2Esharepoint%2Ecom%2Fteams%2FHoneywellXian%2FDocLib%2FForms%2FAllItems%2Easpx"
   
4. 
   
5. With CreateObject("InternetExplorer.Application")
   
6. .Visible = True
   
7. .navigate url2
   
8. Do Until .readyState = 4
   
9. DoEvents
   
10. Loop
    
11. 
    
12. On Error Resume Next
    
13. For i = 1 To .document.all.Length - 1
    
14. If Len(.document.all(i).Name) > 0 Then Debug.Print "i=" & i; "  name=" & .document.all(i).Name
    
15. Next
    
16. 
    
17. '.document.all("username").Value = "lwf"
    
18. '.document.all("password").Value = "123"
    
19. '.document..all("login163").Click
    
20. End With
    
21. MsgBox "Ok"
    
22. End Sub

复制代码

程序会卡在 Do Until .readyState = 4 这句
这个网站是公司内部网站。

tsklei

先赞后看，好贴必赞！