GBKEE

¦^´_ 3# t8899

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex_½L«á¸ê°T_¨C¤é¦¬½L¦æ±¡()
   
3.     Dim A As Object, xDate As Date, EDATE As Date
   
4.     '***********´ú¸Õ¥Î
   
5.     '§ì¨ì¦³¬°¤î(¥u§ì5¤Ñ)¡A5¤Ñ³£§ì¤£¨ì¤]´£¥Ü
   
6.     EDATE = Date + 5
   
7.     xDate = EDATE
   
8.     '*************
   
9.     'xDate = Date    '¥¿¦¡±`µ{¦¡½X
   
10.     With CreateObject("InternetExplorer.Application")
    
11.         .Visible = True
    
12.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/MI_INDEX.php"
    
13.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
14. Ie_Refresh:
    
15.         With .Document
    
16.             .ALL("qdate").Value = Format(xDate, "E/MM/DD") '¤é´Á¥i­×§ï
    
17.             .ALL("selectType").Value = "MS"
    
18.             .ALL("query-button").Click
    
19.         End With
    
20.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
21.         If InStr(.Document.BODY.innerText, "¬dµL¸ê®Æ") Then
    
22.             If xDate + 4 >= EDATE Then  '´ú¸Õ¥Î********
    
23.             'If xDate + 4 >= Date Then   '¥¿¦¡±`µ{¦¡½X
    
24.                 Debug.Print xDate       'ÅçÃҥΠ¥i§R°£
    
25.                 xDate = xDate - 1
    
26.                 GoTo Ie_Refresh
    
27.             End If
    
28.              .Quit
    
29.             MsgBox Format(xDate, "E/MM/DD") & " ¬dµL¸ê®Æ"
    
30.             Exit Sub
    
31.            
    
32.         End If
    
33.         Set A = .Document.getElementsByTagName("table")
    
34.         .Document.BODY.innerHTML = A(A.Length - 1).outerHTML '¨ú³Ì«áªº¤@­Ó"table"
    
35.         
    
36.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
    
37.         .ExecWB 17, 2       '  Select All
    
38.         .ExecWB 12, 2       '  Copy selection
    
39.         .Quit        'Ãö³¬ºô­¶
    
40.          With ActiveSheet    '¥i«ü©w¤u§@ªí
    
41.             .UsedRange.Clear
    
42.             .Range("A1").Select
    
43.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NOHTMLFormatting:=True
    
44.         End With
    
45.            End With
    
46. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# t8899
°Ñ¦Ò¤@¤U

https://social.msdn.microsoft.com/Forums/zh-TW/cbbba9b2-4275-45b7-88e5-fb43ccb1a0e3/execwb?forum=vbgeneral
   
http://fengqx.iteye.com/blog/602767

GBKEE

¦^´_ 10# t8899

µ{¦¡µ²§ô«e °õ¦æEx_°Æµ{¦¡

1. Private Sub Ex_°Æµ{¦¡()
   
2.     Dim Rng As Range, r As Integer
   
3.     With ActiveSheet    '¥i«ü©w¤u§@ªí
   
4.         Set Rng = .[A:A].Find("11*", LOOKAT:=xlWhole)
   
5.         If Not Rng Is Nothing Then
   
6.             r = 4
   
7.             Do
   
8.                 If IsNumeric(.Cells(r, "A")) Then
   
9.                     .Cells(r, "A").Select
   
10.                     .Cells(r, "A") = "'00" & .Cells(r, "A")
    
11.                 End If
    
12.                 r = r + 1
    
13.             Loop Until r = Rng.Row
    
14.         End If
    
15.     End With
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# t8899

1.         r = r + 1
   
2.             Loop Until r = Rng.Row  '¤£·|ªº³o¸Ì¦³­­¨î°Ú

½Æ»s¥N½X