GBKEE

¦^´_ 41# joey0415

1. Do While .readyState <> 4: DoEvents: Loop

½Æ»s¥N½X

§ï¦¨

1. Do While .readyState <> 4 Or .Busy: DoEvents: Loop

½Æ»s¥N½X

GBKEE

¦^´_ 45# joey0415

1. Busy = True            
   
2. Busy = False
   
3. 
   
4. READYSTATE_UNINITIALIZED = 0
   
5. READYSTATE_LOADING = 1
   
6. READYSTATE_LOADED = 2
   
7. READYSTATE_INTERACTIVE = 3
   
8. READYSTATE_COMPLETE = 4

½Æ»s¥N½X

¤£·Q¦ACREAT¥t¤@­ÓIE : 52# c_c_lai ¤w¼g¥X¤F
¦^´_ 52# c_c_lai
¦b2003¦³¿ù»~­×¥¿¦p¤U

1. Option Explicit
   
2. Sub ¹d¨Éºô()
   
3.     Dim URL As String, shts As Worksheet
   
4.     Dim x As Variant, xi As Integer, A As Object, xlHtm
   
5.     Set shts = ActiveSheet '  '("¤u§@ªí2")
   
6.     shts.Cells.Clear
   
7.     URL = "http://www.cnyes.com/twstock/Institutional/1101.htm"
   
8.     With CreateObject("InternetExplorer.Application")
   
9.         .Visible = True     '  ¬O§_Åã¥Ü IE
   
10.         .Navigate URL
    
11.          Do While .ReadyState <> 4 Or .Busy
    
12.                 DoEvents
    
13.             Loop
    
14.         For Each x In .Document.getElementsBytagname("input")
    
15.             If x.Value = "¬d¸ß" Then x.Click: Exit For
    
16.         Next
    
17.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
18.         xlHtm = .Document.body.innerHTML                'Àx¦s
    
19.         Set A = .Document.getElementsBytagname("table")
    
20.         For xi = 1 To 6
    
21.             .Document.body.innerHTML = A(xi).outerHTML
    
22.             .ExecWB 17, 2       '  Select All
    
23.             .ExecWB 12, 2       '  Copy selection
    
24.             With shts
    
25.                 .Range("A" & .[A65535].End(xlUp).Row + 1).Select
    
26.                 .PasteSpecial Format:="HTML"
    
27.             End With
    
28.             .Document.body.innerHTML = xlHtm                  'ÁÙ­ì
    
29.         Next xi
    
30.         shts.Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
    
31.         .Quit
    
32.     End With
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 55# c_c_lai
§Ú 54# ­×¥¿ªºµ{¦¡½X2010¤£¥i¥Î?
2010½Ð¸Õ¸Õ¬Ý³oµ{¦¡½X

1. Option Explicit
   
2. Sub ¹d¨Éºô()
   
3.     Dim URL As String, shts As Worksheet, ie As Object
   
4.     Dim x As Variant, A As Object
   
5.     Set ie = CreateObject("InternetExplorer.Application")
   
6.     ie.Navigate "about:Tabs"
   
7.     ie.Visible = True
   
8.     Set shts = ActiveSheet '  '("¤u§@ªí2")
   
9.     shts.Cells.Clear
   
10.     URL = "http://www.cnyes.com/twstock/Institutional/1101.htm"
    
11.     With CreateObject("InternetExplorer.Application")
    
12.         .Visible = True     '  ¬O§_Åã¥Ü IE
    
13.         .Navigate URL
    
14.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
15.         For Each x In .Document.getElementsBytagname("input")
    
16.             If x.Value = "¬d¸ß" Then x.Click: Exit For
    
17.         Next
    
18.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
19.         Set A = .Document.getElementsBytagname("table")
    
20.         For x = 1 To 6
    
21.             With ie
    
22.             .Document.body.innerHTML = A(x).outerHTML
    
23.             .ExecWB 17, 2       '  Select All
    
24.             .ExecWB 12, 2       '  Copy selection
    
25.             End With
    
26.             With shts
    
27.                 .Range("A" & .[A65535].End(xlUp).Row + 1).Select
    
28.                 .PasteSpecial Format:="HTML"
    
29.             End With
    
30.         Next
    
31.         shts.Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
    
32.         .Quit
    
33.     End With
    
34.     ie.Quit
    
35. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 58# c_c_lai
¦pªG§â Set ie ¥H¤Î ie.Quit §ï¦¨µùÄÀ¡A«h·|µo¥Í¦p¹Ï¤§¿ù»~¡G ¿ù»~¦æ¬O­þ¤@¦æ?
µùÄÀ«áieÅܼƴN¨S¦³«ü©wª«¥ó,¦A¨Ï¥Î¨ìie·íµM·|¿ù»~.
¦^´_ 59# c_c_lai
¹Ï¤¤ »P54# ªºµ{¦¡½X¦³ÂI¤£¼Ë,©ú¤Ñ¦A¬Ý¬Ý

GBKEE

¦^´_ 61# wufonna [/b


   

¤U¸ü (36.92 KB)

2013-11-22 06:35

GBKEE

¦^´_ 64# c_c_lai
¦b2003¤]¬O¦³³o¿ù»~,¸gÀx¦s¤º®e¦AÁÙ­ì,´N¨S¦³³o¿ù»~.

1.     Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
   
2.         xlHtm = .Document.body.innerHTML                'Àx¦s
   
3.         Set A = .Document.getElementsBytagname("table")
   
4.         For xi = 1 To 6
   
5.             .Document.body.innerHTML = A(xi).outerHTML
   
6.             .ExecWB 17, 2       '  Select All
   
7.             .ExecWB 12, 2       '  Copy selection
   
8.             With shts
   
9.                 .Range("A" & .[A65535].End(xlUp).Row + 1).Select
   
10.                 .PasteSpecial Format:="HTML"
    
11.             End With
    
12.             .Document.body.innerHTML = xlHtm                  'ÁÙ­ì
    
13.         Next xi

½Æ»s¥N½X

¤§«á¦b¬°¤F¤£Àx¦s¦AÁÙ­ì. ¤~¦³56#ªºµ{¦¡½X¦bªÅ¥Õºô­¶©ñ¸m "table"ªº¼gªk

GBKEE

¦^´_ 67# c_c_lai
66# »¡ªº¿ù»~,2003¨S¦³µo¥Í.
2­Óie³£¥i¥H¤£Åã¥Ü,¨º§ó²M²nªº.

GBKEE

¦^´_ 71# c_c_lai
2­ÓIE³£¤£Åã¥Ü,2003¦A¶]¤@¦¸,OK!