[µo°Ý] µ{¦¡»yªk¦³»~

pupai

±z¦n
§Ú´¡¤J«ü©w¤é´Á«á¡Aµ{¦¡¿ù»~
½ÐÀ°¦£­×§ï
ÁÂÁÂ!!

1. Sub ¥¨¶°()
   
2.     Dim Theurl As String, Sdate, AR, A As Date
   
3.    
   
4.     A = Range("A1").Value
   
5.     Sdate = Text(A1, "emmdd")
   
6.      
   
7.     Theurl = "http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date="&Sdate&end_date=&report_type=day&language=ch&save=csv"
   
8.     With Workbooks.Open(Theurl)
   
9.         AR = .Sheets(1).UsedRange
   
10.         .Close False
    
11.     End With
    
12.     With ActiveSheet
    
13.         
    
14.    
    
15.         
    
16.         .Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
    
17.    
    
18.             
    
19.      
    
20. 
    
21.     End With
    
22. End Sub

½Æ»s¥N½X

pupai

¦^´_ 2# hugh0620


    §Ú²q
    Theurl = "http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date="&Sdate&end_date=&report_type=day&language=ch&save=csv"

ÁÂÁÂ

pupai

¦^´_ 4# HSIEN6001


    ·PÁ¦^´_
«á¨Ó§Ú¥Î¤g¤èªk

1. Sub ¥¨¶°()
   
2.    
   
3.    
   
4.     Dim Theurl As String, Sdate, AR, A As Date
   
5.    
   
6.     A = Range("A1").Value
   
7.     Sdate = Format(A, "yyyymmdd")
   
8. 
   
9.    
   
10.     Theurl = "http://www.twse.com.tw/ch/trading/fund/BFI82U/BFI82U_print.php?begin_date=" & Sdate & "&end_date=" & Date & "&report_type=day&language=ch&save=csv"
    
11.    
    
12.    
    
13.             
    
14.    
    
15.    
    
16.     With Workbooks.Open(Theurl)
    
17.         AR = .Sheets(1).UsedRange
    
18.         .Close False
    
19.     End With
    
20.     With ActiveSheet
    
21.          
    
22.         .Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
    
23.    
    
24.     End With
    
25. End Sub

½Æ»s¥N½X

pupai

¦^´_ 7# GBKEE


    ÁÂÁÂ ¦^´_