返回列表 上一主題 發帖

[發問] 使用WEB查詢更新資料時,跳出來的錯誤,

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
1# 跳轉到 »
發表於 2013-12-28 00:03 | 顯示全部帖子
回復 6# GBKEE

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

如圖



附檔 每日收盤行情.rar (60.54 KB)
50 字節以內
不支持自定義 Discuz! 代碼

TOP

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
2#
發表於 2013-12-28 20:55 | 顯示全部帖子
回復 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
50 字節以內
不支持自定義 Discuz! 代碼

TOP

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
3#
發表於 2013-12-29 17:11 | 顯示全部帖子
回復 18# GBKEE

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

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

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

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

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

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

感謝大大
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題