[VBA程序]：用CREATEOBJECT怎样调用IE？

932516

用CREATEOBJECT怎样调用IE？

灯火

IE里确实有好多有趣的东西，值得挖掘。

2. 
   
3. 
   
4.     Dim AppIE As SHDocVw.InternetExplorer
   
5.     Dim objDoc As MSHTML.HTMLDocument
   
6.    
   
7.     Set AppIE = CreateObject("InternetExplorer.Application")
   
8.     With AppIE
   
9.         .Navigate "about：blank"
   
10.         .ToolBar = 0
    
11.         .StatusBar = 0
    
12.         .top = 100
    
13.         .Left = 100
    
14.         .Width = 800
    
15.         .Height = 500
    
16.         .Visible = 1
    
17.     End With
    
18.    
    
19.     Do While (AppIE.Busy): Loop
    
20.    
    
21.     Set objDoc = AppIE.Document
    
22. 
    

<br /> <br />     Dim AppIE As SHDocVw.InternetExplorer<br />     Dim objDoc As MSHTML.HTMLDocument<br />     <br />     Set AppIE = CreateObject("InternetExplorer.Application")<br />     With AppIE<br />         .Navigate "about：blank"<br />         .ToolBar = 0<br />         .StatusBar = 0<br />         .top = 100<br />         .Left = 100<br />         .Width = 800<br />         .Height = 500<br />         .Visible = 1<br />     End With<br />     <br />     Do While (AppIE.Busy): Loop<br />     <br />     Set objDoc = AppIE.Document<br /> <br />