帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-7-7 19:04 | 只看該作者

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

如上圖我在使用WEB查詢更新因網站(或其它我不知什麼原因) 有時會一直跳出來如上圖的訊息我得手動按enter或點確定

不知能不能使用　事件程序　或其它方法　在跳出訊息時，自動按下enter，不然只要我沒去按　更新就會暫停，直到我接下enter

感謝　幫忙了　這問題弄好久都弄不出來　而且不是每次更新都一定會出現訊息　有時完全沒有　有時郤多到我想直接關了不要更新了。。

樓主熱帖

7777

中學生 Rank: 2

帖子: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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匯入參數有誤

Option Explicit
Sub Ex() '修改你的Web參數
Dim URL, DCym, DCymd, Eymd '
DCym = "[" & """ym """ & "," & """" & Format(Date, "yyyymm") & """" & "]" '西元年月
DCymd = "[" & """ymd """ & "," & """" & Format(Date, "yyyymmdd") & """" & "]" '西元年月日
Eymd = "[" & """Eymd""" & "," & """" & Format(Date, "E/mm/dd") & """" & "]" '民國年/月/日
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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

7777

中學生 Rank: 2

帖子: 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

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

cji3cj6xu6

中學生 Rank: 2

帖子: 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

jak