GBKEE

¦^´_ 3# t8899
°Q½×°Ï¸Ì¦³³\¦hÃþ¦üªº°Q½×,¦Û¤v¸ÕµÛ§R¬Ý¬Ý.

t8899

¦^´_  t8899
GBKEE µoªí©ó 2013-9-3 07:59

½Ð°Ý¤£·Q¬Ý¨ìie8 ¥X²{­n§R±¼¨º¤@¦æ©O?

GBKEE

¦^´_ 1# t8899

1. Sub Ex()
   
2.     Dim xlVbTable As Object, Ar, R As Integer, C As Integer, i As Variant, Y As Integer
   
3.     With CreateObject("InternetExplorer.Application")
   
4.         .Visible = True
   
5.        .Navigate "http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v"
   
6.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
7.         Set xlVbTable = .document.getelementsbytagname("table")
   
8.         On Error Resume Next
   
9.         With ActiveSheet
   
10.             .Cells.Clear
    
11.             .Cells(1, 1) = "º¦°±ÂꦺªÑ"
    
12.             Y = 2
    
13.             For Each i In Array(20, 24)
    
14.                 If i = 24 Then .Cells(Y, 1) = "¶^°±ÂꦺªÑ": Y = Y + 1
    
15.                 For R = 0 To xlVbTable(i).Rows.Length - 1
    
16.                     For C = 0 To xlVbTable(i).Rows(1).ALL.Length - 1
    
17.                         .Cells(Y, C + 1) = xlVbTable(i).Rows(R).Cells(C).innerText
    
18.                     Next
    
19.                     Y = Y + 1
    
20.                 Next
    
21.             Next
    
22.             .Rows(13).Delete
    
23.         End With
    
24.        .Quit
    
25.     End With
    
26. End Sub

½Æ»s¥N½X

t8899

http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v