[µo°Ý] ­n¦p¦ó¤U¸üºô­¶¤¤ªºªí®æ¸ê®Æ

jasonwu0114

½Ð°Ý­n¦p¦ó¥ÎVBA¤U¸ü¸Óºô­¶ªº¶×²v¸ê®Æ§Q¥Î
¨Ò¦p­nºâ¤H¥Á¹ô §Y´Á (¶R¶×+½æ¶×)/2
https://wwwfile.megabank.com.tw/rates/M001/viewF.asp

ÁÂÁÂ

jasonwu0114

¦^´_ 4# liao83


    ¦¨¥\¦³®Ä
    ÁÂÁ·P®¦

liao83

¦^´_ 3# jasonwu0114
¥i¥H¦b²Ä9¦æµ{¦¡¤U­±¼W¥[¤U­±³o¦æ§Y¥i, µ¹±z°Ñ¦Ò
Application.Wait Now + TimeValue("00:00:03")  'µ¥«Ý 3¬íÄÁ

jasonwu0114

¦^´_ 2# joey0415


    ·P®¦
¦n¦h¬Ý¤£À´ªº»yªk.....§V¤O¬ã¨s¤¤

¥t¥~¨Ï¥Î¤WÁÙ¦³¨Ç°ÝÃD·Q½Ð±Ð
µ{¦¡°õ¦æ«á
ªíÀY¦³¥X¨Ó
¥i¬O¤º®eÁÙ¨S¶Ç¦^¨Ó
µ{¦¡´N¤w¸gµ²§ô¤F

½Ð°Ý­n§ï­þ¸Ì????
ÁÂÁÂ

joey0415

¦^´_ 1# jasonwu0114

1. Sub ºô»È()
   
2.     Dim URL As String, shts As Worksheet
   
3.     Dim x As Variant, xi As Integer, A As Object, xlHtm
   
4.     Set shts = ActiveSheet '  '("¤u§@ªí2")
   
5.     shts.Cells.Clear
   
6.     URL = "https://wwwfile.megabank.com.tw/rates/M001/viewF.asp"
   
7.     With CreateObject("InternetExplorer.Application")
   
8.         .Visible = True     '  ¬O§_Åã¥Ü IE
   
9.         .Navigate URL
   
10.          Do While .ReadyState <> 4 Or .Busy
    
11.                 DoEvents
    
12.             Loop
    
13.         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
    
14.         xlHtm = .Document.body.innerHTML                'Àx¦s
    
15.         Set A = .Document.getElementsBytagname("table")
    
16.         For xi = 0 To 2
    
17.             .Document.body.innerHTML = A(xi).outerHTML
    
18.             .ExecWB 17, 2       '  Select All
    
19.             .ExecWB 12, 2       '  Copy selection
    
20.             With shts
    
21.                 .Range("A" & .[A65535].End(xlUp).Row + 1).Select
    
22.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
23.             End With
    
24.             .Document.body.innerHTML = xlHtm                  'ÁÙ­ì
    
25.         Next xi
    
26.         shts.Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
    
27.         .Quit
    
28.     End With
    
29. End Sub

½Æ»s¥N½X