Hsieh

¦^´_ 1# carzyindex
¥H¿úÂdKTVºô­¶¬°¨Ò¡Aªù¥«¬d¸ßªº¤U©Ô¿ï³æ¤º®e
http://www.cashboxparty.com/ktv/ktv_index.asp

1. Sub GetWebObj()
   
2. Dim MyURL$, Ar()
   
3. MyURL = "http://www.cashboxparty.com/ktv/ktv_index.asp"
   
4. Set MyIE = Nothing
   
5. Set MyIE = CreateObject("InternetExplorer.Application")
   
6.             With MyIE
   
7.                 .Navigate MyURL
   
8.                 Do While .Busy Or .ReadyState <> 4
   
9.                     DoEvents
   
10.                 Loop
    
11.                 .Visible = False
    
12.                For i = 0 To .document.all("dept").Options.Length - 1
    
13.                ReDim Preserve Ar(i)
    
14.                Ar(i) = .document.all("dept").Options(i).innerText
    
15.                Next
    
16.                .Quit
    
17.             End With
    
18. MsgBox Join(Ar, Chr(10))
    
19. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# FAlonso

ª½±µ¼g¤JÀx¦s®æ¡A¤£¶·¥ý¼g¤J°}¦C
³o­«ÂI¥u¬O¨ú¥X¤U©Ô¿ï³æ¤º®eªº»yªk

1. Sub abc()
   
2. Dim myURL As String,i As Integer
   
3. Set myie = Nothing
   
4. Set myie = CreateObject("internetexplorer.application")
   
5. myURL = "http://tw.weather.yahoo.com/"
   
6. With myie
   
7. .Navigate myURL
   
8. .Visible = False
   
9. Do While .Busy And .ReadyState <> READYSTATE_COMPLETE
   
10. DoEvents
    
11. Loop
    
12. For i = 0 To .Document.all("select").Options.Length - 1
    
13. Cells(i + 1, 1) = .Document.all("select").Options(i).innertext
    
14. Next
    
15. .Quit
    
16. End With
    
17. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 8# FAlonso


    ³o­Ó­ì¦]¥i¯à¬O¦]¬°«e¤@¦¸ªºmyieÅܼƥ¼³Q¨ø¸ü©Ò­P
©Ò¥H§Ú¦bµ{¦¡¶}ÀY´N¥ý
Set myie = Nothing
µM«á¦A¥h«Ø¥ßª«¥ó
Set myie = CreateObject("internetexplorer.application")