GBKEE

¦^´_ 10# bioleon69

1. Option Explicit
   
2. Sub Ex_ºô­¶¤¸¯À()
   
3.     Dim i As Integer, xlTab As Object, R As Integer, C As Integer, Surl$
   
4.     If Sheets("¤u§@ªí1").[A1] = "" Then MsgBox "½Ð¿é¤J¥¿½TªÑ²¼¥N¸¹": Exit Sub
   
5.     Surl = "http://www.cmoney.tw/finance/f00026.aspx?s=" & Sheets("¤u§@ªí1").[A1]
   
6.     With CreateObject("InternetExplorer.Application")
   
7.         .Visible = False
   
8.         .Navigate Surl
   
9.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
10.             Set xlTab = .Document.ALL.tags("TABLE")(0)
    
11.         If Not xlTab Is Nothing Then
    
12.             With ActiveSheet
    
13.                 .UsedRange.Clear
    
14.                 For R = 0 To xlTab.Rows.Length - 1
    
15.                     For C = 0 To xlTab.Rows(R).Cells.Length - 1
    
16.                         .Cells(R + 1, C + 1) = xlTab.Rows(R).Cells(C).innertext
    
17.                     Next
    
18.                 Next
    
19.             End With
    
20.         Else
    
21.             MsgBox "½Ð¿é¤J¥¿½TªÑ²¼¥N¸¹"
    
22.         End If
    
23.         .Quit        'Ãö³¬ºô­¶
    
24.     End With
    
25. End Sub

½Æ»s¥N½X