quickfixer

¦^´_ 2# PKKO

GBKEE¤j,5/10¦b³o¸Ì¦³¦^µª¹L,2½g¤å³¹¤]¤~®t10¤Ñ
http://forum.twbts.com/thread-22543-1-1.html

1. Sub Ex()
   
2.     Dim R As Integer, C As Integer
   
3.    
   
4.     With CreateObject("InternetExplorer.Application")
   
5.        .Visible = True
   
6.         .Navigate "https://pchome.megatime.com.tw/stock/sto0/ock3/sid1216.html"
   
7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
8.         With .Document.all.tags("table")(2)
   
9.             For R = 0 To .Rows.Length - 1
   
10.                 For C = 0 To .Rows(R).Cells.Length - 1
    
11.                     ActiveSheet.Cells(R + 1, C + 1) = .Rows(R).Cells(C).innerText
    
12.                 Next
    
13.             Next
    
14.         End With
    
15.         .Quit
    
16.       End With
    
17. End Sub

½Æ»s¥N½X

https://www.mobile01.com/topicdetail.php?f=511&t=4737630
¹ï³t«×¦³­n¨D¤£­n¿ù¹L01³o½g,«D±`§Ö
#797¦³pchomeªºcode