7777

回復 6# GBKEE

能否 請問大大....
     
     如何可以不要出現 [查詢更新]

如圖

下載 (85.41 KB)

2013-12-28 00:00

附檔 每日收盤行情.rar (60.54 KB)

下載次數: 16

2013-12-28 00:02

7777

回復 16# GBKEE

感謝大大
Web的參數沒有錯
因為
台灣交易所的資料，沒有 (2012/12/28) 所有會有誤
加上交易所 13:30 收盤後，約13:50 才會匯整好資料
以致於 本人希望是 更改為[手動的方式]來進行
所以重點是 .... [T2] 要是 台灣交易所 有開盤的時間日期才可以抓資料
因為沒有錯，所以就改回，謝謝大大

    Option Explicit
    Sub Ex() '修改你的Web參數
    Dim URL, DCym, DCymd, Eymd '
    DCym = [T4]        '西元年月
    DCymd = [T3]       '西元年月日
    Eymd = [T5]        '民國年/月/日
    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
        With Sheet1.QueryTables(1)
            .Connection = URL
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "10"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
    End Sub

7777

回復 18# GBKEE

感謝大大 時事求事~ 認真的面對每一個問題

沒錯 Web的網址 第3個時間是，取非常非常未來的日期

    DCym = [T4]        '西元年月
    DCymd = [T3]       '西元年月日
    Eymd = [T5]        '民國年/月/日

因為 第1,2 是要取所要的時間資訊 (所以 會是變數)

第3個時間的條件，似乎是要
限制有效的資訊:在最後的時間日期內 (所以 取一個非常遠的常數也可以)

大大的做法，是最正確的方法

感謝大大