GBKEE

¦^´_ 1# icestormer
½Ðªþ¤WÀɮ׬ݬÝ

GBKEE

¦^´_ 3# icestormer
¦Ü¤Ö¤]­n¦³µ{¦¡½X,¤~¦n¤F¸Ñ°ÝÃD.

GBKEE

¦^´_ 5# icestormer

³o³¡¥÷¤]§¹¥þ§Ú¨S¦³¥h¼g¥ô¦ó¤@ÂIµ{¦¡½X

¦p¹ÏÅý¥L¤£¦b¦Û°Ê¸ß°Ý

   

¤U¸ü (51.5 KB)

2013-7-13 17:26

GBKEE

¦^´_ 15# 7777

   

¤U¸ü (44 KB)

2013-12-28 18:44

§AªºWeb¶×¤J°Ñ¼Æ¦³»~

1. Option Explicit
   
2. Sub Ex() '­×§ï§AªºWeb°Ñ¼Æ
   
3. Dim URL, DCym, DCymd, Eymd '
   
4. DCym = "[" & """ym """ & "," & """" & Format(Date, "yyyymm") & """" & "]"        '¦è¤¸¦~¤ë
   
5. DCymd = "[" & """ymd """ & "," & """" & Format(Date, "yyyymmdd") & """" & "]"     '¦è¤¸¦~¤ë¤é
   
6. Eymd = "[" & """Eymd""" & "," & """" & Format(Date, "E/mm/dd") & """" & "]"       '¥Á°ê¦~/¤ë/¤é
   
7. URL = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & DCym & "/A112" & DCymd & "ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=" & Eymd
   
8.     With Sheet1.QueryTables(1)
   
9.         .Connection = URL
   
10.         .WebSelectionType = xlSpecifiedTables
    
11.         .WebFormatting = xlWebFormattingNone
    
12.         .WebTables = "10"
    
13.         .WebPreFormattedTextToColumns = True
    
14.         .WebConsecutiveDelimitersAsOne = True
    
15.         .WebSingleBlockTextImport = False
    
16.         .WebDisableDateRecognition = False
    
17.         .WebDisableRedirections = False
    
18.         .Refresh BackgroundQuery:=False
    
19.     End With
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 17# 7777
³o¬O§AªþÀÉWebªººô§}
'www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report["ªÑ»ù¦~¤ë","ªÑ»ù¦~¤ë"]/A112["ªÑ»ù¦~¤ë¤é","ªÑ»ù¦~¤ë¤é"]ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=29991231 ³o¸Ì¿ù»~