12
返回列表 上一主題 發帖

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

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
11# 跳轉到 »
發表於 2013-7-19 06:04 | 只看該作者
回復 10# stillfish00


   試看看
不管如何都感謝你發言回覆^^

TOP

jak

帖子
36 
主題
7 
精華
0 
積分
76 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2012-10-1 
最後登錄
2016-3-21 
12#
發表於 2013-7-25 10:22 | 只看該作者
會不會跟網路品質有關(本身網速、或是該網站當時無法回應...)

TOP

cji3cj6xu6

帖子
112 
主題
19 
精華
0 
積分
136 
點名
0  
作業系統
window 
軟體版本
excel 
閱讀權限
20 
性別
男 
註冊時間
2013-3-12 
最後登錄
2022-11-29 

論壇贊助勳章
13#
發表於 2013-7-25 17:16 | 只看該作者
icestormer 大，
你的問題我有遇過，基本上你應該也是使用iqy去抓取資料的對吧！
當網路下載順利應該就不會出現此現象，
而該網站繁忙時就有可能會出現。
我之前想抓20組資料，分別放在20張sheet裡，
可是我一次就將20組的代號更換掉，
可能因此偶爾會發生此一現象。
當發生時，假設其中一組，我更改其代號但它依舊會發生。
不會發生錯誤的sheet，發生的機率只有一成。

建議你，採用vba來下載資料，每頁sheet之間，
相隔1∼5秒（確認下載完成），抓取資料應該還蠻順暢的。

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
14#
發表於 2013-8-1 17:34 | 只看該作者
用VBA來抓才是正確的

例如網站忙時，你要設定一個程式例如十秒，或是那個網頁出現例如：無此資料…語句，就跳到下一檔股票，並將跳過的股票代碼，寫進LOG檔中，這樣更新就不會有問題，也會知道是哪一檔哦！

這種事以前我有也過，後來自己寫就沒有問題

TOP

7777

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

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

如圖



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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
16#
發表於 2013-12-28 18:45 | 只看該作者
本帖最後由 GBKEE 於 2013-12-28 18:52 編輯

回復 15# 7777

   

你的Web匯入參數有誤
  1. Option Explicit
  2. Sub Ex() '修改你的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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-6-8 
17#
發表於 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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
18#
發表於 2013-12-29 14:25 | 只看該作者
回復 17# 7777
這是你附檔Web的網址
'www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report["股價年月","股價年月"]/A112["股價年月日","股價年月日"]ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=29991231 這裡錯誤
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

7777

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

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

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

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

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

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

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

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

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
12
返回列表 上一主題