heavenweaver

½Ð¸Õ¥Î¤@¤U§a

Sub TWT93U()
'
'
' «H¥ÎÃB«×Á`¶qºÞ¨î¾lÃBªí  @ TWSE »OÆWÃÒ¨é¥æ©ö©Ò ¡á¥æ©ö¸ê°T ¡á¿Ä¸ê¿Ä¨é»P¥i­É¨é½æ¥XÃB«× ¡á¿Ä¨é­É¨é½æ¥X¾lÃB
' http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php
Dim YMD_day As String, N As Name, webURL As String
    YMD_day = Format(Date, "E/MM/DD")
    With Sheets("Sheet1")
        For Each N In .Names
            N.Delete
        Next
        .Cells.Clear
        webURL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php?input_date=" & YMD_day & "&login_btn=¬d¸ß.dat"
        With .QueryTables.Add(Connection:=webURL, Destination:=.Range("A1"))
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "7,9"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = False
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = True
            .Refresh BackgroundQuery:=False
        End With
    End With
End Sub

heavenweaver

¦^´_ 35# gto1208
§ï¦n¤F¡A½Ð¸Õ¥Î§a¡I

    Sub TEST123()
        Dim YMD_day As String, N As Name, webURL As String
        YMD_day = InputBox("¿é¤J ¥Á°ê¦~«×¤é´Á : 102/10/07", "¤U¸ü¯S©w¤é´Áªº¸ê®Æ", Format(Date - 1, "E/MM/DD"))
        With Sheets("¤U¸ü¸ê®Æ")
           For Each N In .Names
                'N.Delete
           Next
            .Cells.Clear
            GetData_URL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php?edition=ch&filename=genpage/A" & YMD_day & ".dat&type=csv"
            'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=¬d¸ß.dat"
            With .QueryTables.Add(Connection:=GetData_URL, Destination:=.Range("A1"))
                 .WebSelectionType = xlSpecifiedTables
                 .WebFormatting = xlWebFormattingNone
                 .WebTables = "9"
                 .WebPreFormattedTextToColumns = True
                 .WebConsecutiveDelimitersAsOne = False
                 .WebSingleBlockTextImport = False
                 .WebDisableDateRecognition = False
                 .WebDisableRedirections = True
                 .Refresh BackgroundQuery:=False
             End With
            End With
        End With
    End Sub

heavenweaver

heavenweaver ±z¦n
§Ú¥Ø«e¦³¤G­Óºô§}
http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php
³£¬OÄÝ©ó¤W­zªºª¬ªp¡A§Ú·Q½Ð±Ð¤@¤U¡A¬O§_¦³¤u¨ã¥i¥H¬d¸ß?edition=ch&filename=genpage/A" & YMD_day & ".dat&type=csv" --ªº°Ñ¼Æ¸ê®Æ¥X¨Ó©O¡AÁÂÁÂgto1208 µoªí©ó 2014-2-27 11:11

³Ìª½±µªº´N¬O¥ÎÂsÄý¾¹¥»¨­©Ò´£¨Ñªººô­¶¶}µoªÌ¤u¨ã¦pChromeªºÀˬd¤¸¯À©ÎFireFoxªºÀË´ú¤¸¯À
http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php

¤U¸ü (61.42 KB)

2014-2-28 15:38

Request URL:http://www.gretai.org.tw/ch/stock/statistics/monthly/result_st42.php?timestamp=1393573668432
Form Data
            ajax=true&input_stock_code=3260
¨âªÌ¦X¨Ö
http://www.gretai.org.tw/ch/stock/statistics/monthly/result_st42.php?ajax=true&input_stock_code=3260

http://www.gretai.org.tw/ch/stock/statistics/monthly/st44.php

¤U¸ü (60.87 KB)

2014-2-28 15:38

http://www.gretai.org.tw/ch/stock/statistics/monthly/result_st44.php?ajax=true&yy=2014&input_stock_code=3260