尝试在网上自动输入时出现错误。

小zhi

1. Sub 网上填写资料2()
   
2. With CreateObject("InternetExplorer.Application")
   
3. .Visible = True
   
4. .navigate "http://www.baidu.com"
   
5. Do Until .readyState = 4
   
6. DoEvents
   
7. Loop
   
8. .Document.all("input")(0).Value = "台风"
   
9. .Document.all("enter.x").Click
   
10. End With
    
11. End Sub

复制代码

到.visible = true这句就不行了，弹出错误窗口，要求对象。

梧月书声

with没指定对象当然报错了

1. Sub 网上填写资料2()
   
2. Set ie = CreateObject("InternetExplorer.Application")
   
3. With ie
   
4. .Visible = True
   
5. .navigate "http://www.baidu.com"
   
6. Do Until .readyState = 4
   
7. DoEvents
   
8. Loop
   
9. .Document.all("input")(0).Value = "台风"
   
10. .Document.all("enter.x").Click
    
11. End With
    
12. End Sub

复制代码

小zhi

谢谢，学习了

梧月书声

小zhi 发表于 2016-8-3 11:30
谢谢，学习了

不客气，如有帮助还请给评个分哈～