(不定期更新)使用VBA解決 excel web 查詢無法匯入、匯入太慢的股市資料


snare wrote:

使用日期選擇的正常...(恕刪)


1.樓主的說明相當清楚明確,讓小弟清楚最主要錯誤在於進入該網站未作日期的點選,以致於產生無參數"D"或無日期資料的情形

2.文末提供的日期函數,真是相當受用,謝謝
snare大,
之前修改的抓Yahoo finance歷史股價的VBA都工作正常。
但這幾天卻一直出現PutInClipboard的Run-time error。
VBA都一樣沒有更動。

Google了一下,目前還找不到解答。
請問您有碰過這樣的error嗎?
謝謝!





附加壓縮檔: 201902/mobile01-0740db784d3ebeba563c5288121e8589.zip
蔬食抗暖化,減碳救地球!
nijawang wrote:
但這幾天卻一直出現PutInClipboard的Run-time error。
VBA都一樣沒有更動。
...(恕刪)


我試您的程式,很正常,可能一樣是active的問題
另外,excel 2016 要正常,需改成555樓程式碼寫法
您附的檔案還是沒改

測試時間20190201 09:30



剛才仔細一看…發現我上傳到舊的還沒改變數型態之前的檔案了…|||

順便試了一下同一個檔案的VBA,竟然都沒有問題了?!
白天是在公司試,一直有問題;
下班把筆電帶回家,剛才試的結果很順,完全沒問題…
真是奇怪了?

不過還是謝謝snare大!
蔬食抗暖化,減碳救地球!
先祝板大 新年快樂

想請教板大,以下連結中的台指VIX(VIXTWN)技術分析移動滑鼠不同天會出現每天的開高低收,想要抓取這歷史資料該如何下手
我看了原始碼只看到上方最新一日的有資料

https://www.wantgoo.com/global/stockindex?stockno=VIXTWN

謝謝板大
yuhuahsiao wrote:
以下連結中的台指VIX(VIXTWN)技術分析移動滑鼠不同天會出現每天的開高低收,想要抓取這歷史資料該如何下手
我看了原始碼只看到上方最新一日的有資料

https://www.wantgoo.com/global/stockindex?stockno=VIXTWN
...(恕刪)



網址不對

因為編碼關係,無法用文字貼上,請複製以下連結使用
"送出資料的網址"




資料是json格式,x軸的日期是unixtime,需反推回正確日期格式
抓完後還要整理才行

建議改用其它來源,例如:https://finance.yahoo.com/

謝謝板大的資訊,已經可以抓取了
Snare大你好

可以請教一個access的問題,如果有一個資料庫他有一個欄位是日期(資料類型是文字),我要得到最大的日期和最小的日期,如下面的table,照道理最大是 105/02/03,最小是99/12/31,但是用下面的sql指令,最大會變成MaxDate(0,0)=99/12/31,最小會變成MinDate(0,0)=100/01/03,因為它是用字串去比對,是否有什麼方式或SQL指令去得到table日期欄位真正的最大和最小。

日期
105/02/03
102/01/02
99/12/31
100/01/03


Rsql = "SELECT MAX (日期) FROM " & stockid
RS.Open Rsql, DB, 3, 3
MaxDate = RS.GetRows(1)
Rsql = "SELECT MIN (日期) FROM " & stockid
RS.Close
RS.Open Rsql, DB, 3, 3
MinDate = RS.GetRows(1)
RS.Close

peter624 wrote:
sql指令,最大會變成MaxDate(0,0)=99/12/31,最小會變成MinDate(0,0)=100/01/03...(恕刪)


在access中,不認識民國日期,在比大小、加減時,計算會出錯
99/12/31=>1999-12-31
100/01/03=>100-01-03
所以變成99/12/31會比100/01/03大


不要用民國,年份加1911,改西元就沒問題了

或是在輸入資料時加個"r",access會自動把民國轉成正確西元日期
r99/12/31
r100/01/03
了解
感謝snare大,我再試試看是否可以。
關閉廣告
文章分享
評分
評分
複製連結
請輸入您要前往的頁數(1 ~ 144)

今日熱門文章 網友點擊推薦!