GBKEE

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

c_c_lai

¦^´_ 65# GBKEE
(56#ªºµ{¦¡½X¦bªÅ¥Õºô­¶©ñ¸m "table"ªº¼gªk)
§Ú±N "ªÅ¥Õºô­¶" ÁôÂð_¨Óµøı¤W²M²n¦h¤F¡C

1.     Set ie = CreateObject("InternetExplorer.Application")
   
2.     ie.Navigate "about:Tabs"
   
3.     '  ie.Visible = True

½Æ»s¥N½X

°õ¦æ¨MªG¤@¤Á OK¡C

c_c_lai

¦^´_ 60# GBKEE
(¹Ï¤¤ »P54# ªºµ{¦¡½X¦³ÂI¤£¼Ë)
ªþ¤W°õ¦æ¤§µ{¦¡½X¡G

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

½Æ»s¥N½X

¤U¸ü (104.06 KB)

2013-11-22 07:23

P.S.     ³o¬O­è¤~¤~°õ¦æ¥X¨Óªº¨MªG¡C

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

c_c_lai

¦^´_ 60# GBKEE
§Ú­ì¥»ªº´ú¸Õµ{¦¡½X¡G

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

½Æ»s¥N½X

¤U¸ü (97.99 KB)

2013-11-22 06:56

c_c_lai

¦^´_ 60# GBKEE
(¦pªG§â Set ie ¥H¤Î ie.Quit §ï¦¨µùÄÀ)
ªþ¤W´ú¸Õ¥Îµ{¦¡½X¡G

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

½Æ»s¥N½X

¤U¸ü (88.61 KB)

2013-11-22 06:53

GBKEE

¦^´_ 61# wufonna [/b


   

¤U¸ü (36.92 KB)

2013-11-22 06:35

wufonna

¦^´_ 56# GBKEE


    ½Ð°Ý GBKEE  ª©¥D
   ie.Navigate "about:Tabs"
  §@¥Î¬O¦p¦ó¡AÁÂÁÂ

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¬Ý¬Ý

c_c_lai

¦^´_ 56# GBKEE
ªþ¤W 54# ªºµ{¦¡°õ¦æµ²ªG¡G

¤U¸ü (95.85 KB)

2013-11-21 20:23