GBKEE

¦^´_ 1# s13983037

1. Option Explicit
   
2. Sub Ex_Pchome()
   
3.     Dim E As Object, i As Integer, ii As Integer, k As Integer
   
4.     Dim xadte As Date
   
5.     xadte = DateAdd("yyyy", -1, Date)  '¤é´Á(°_)¡G
   
6.     With CreateObject("InternetExplorer.Application")
   
7.         .Visible = True
   
8.         .Navigate "http://pchome.megatime.com.tw/stock/sid9907.html"
   
9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
10.         Set E = .document.getElementsByTAGName("TABLE")(4)
    
11.         ActiveSheet.UsedRange.Clear
    
12.         For i = 0 To E.Rows.Length - 1
    
13.             k = k + 1
    
14.             For ii = 0 To E.Rows(i).Cells.Length - 1
    
15.                 Cells(k, ii + 1) = E.Rows(i).Cells(ii).INNERTEXT
    
16.             Next
    
17.         Next
    
18.         .Quit        'Ãö³¬ºô­¶
    
19.     End With
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# s13983037
VBA µ{¦¡½X¬Ý¤£À´ ¥i¦h¬Ý VBA ªº»¡©ú

1. DateAdd ¨ç¼Æ ¶Ç¦^­È¬°¤@ Variant (Date)¡A¤º®e¬°¬Y­Ó°ò·Ç¤é´Á¥[¤W¯S©w®É¶¡¶¡¹j³æ¦ì«áªº¤é´Á¡C

½Æ»s¥N½X

1. CreateObject ¨ç¼Æ «Ø¥ß¨Ã¶Ç¦^¹ï©ó ActiveX ª«¥óªº¤Þ¥Î

½Æ»s¥N½X

1. Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
2. 'Do While °õ¦æ±ø¥ó ¦¨¥ß¤@ª½°õ¦æ°j°é,¤£¦¨¥ßÂ÷¶}°j°é  

½Æ»s¥N½X

1. Set E = .document.getElementsByTAGName("TABLE")(4)

½Æ»s¥N½X

Åܼƫü©w¬°ª«¥ó¶·¥[¤WSet
ºô­¶¤å¥óªº¤¸¯ÀTAGName¬°"TABLE"ª«¥ó¶°¦X²Ä5­Ó¤lª«¥ó(0,1,2,3,4)

GBKEE

¦^´_ 5# kof0018
¥i°Ñ¦Ò³o¸Ì,§ä¥Xºô­¶¤Wªº¤¸¯À
http://forum.twbts.com/thread-13669-1-1.html