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

snare wrote:
今天再次測試msxml2...(恕刪)


謝謝樓主如此神速放上修正程式碼,以舊版方式運用在多筆連續查詢yahoo股市,若設定重查html的次數為3,還是會發生中斷,經設定為5次,測試過程暫未發生中斷的情形
activer wrote:
以舊版方式運用在多筆連續查詢yahoo股市,若設定重查html的次數為3,還是會發生中斷,經設定為5次,測試過程暫未發生中斷的情形


也許是網路環境不同、程式寫法不同、或是yahoo還在改版過渡期
我測試時不超過2

謝謝您的測試,範例中,使用您的建議改成5
請參考1000樓
謝謝大師辛苦指導,請問1000樓的範例,下不下來是我的問題嗎?
f101f101 wrote:
謝謝大師辛苦指導,請(恕刪)



可以了,謝謝
snare大神
一直以來我都是用大神的Getkgi_memory()下載每日股價
因為比yahoo的還快
不過今天下載時 卻停住了 查不出是什麼原因, 這個等級的debug已超出了我的能力範圍
不過Getkgi_hd()是可以下載成功的
可否請大神有空時再幫忙看看

謝謝大神
rainbowsperm wrote:
不過今天下載時 卻停住了 查不出是什麼原因, 這個等級的debug已超出了我的能力範圍
不過Getkgi_hd()是可以下載成功的


網頁改版

請把範例內
4個 http 改成 https

其它不變
http改https這部分是知道的 之前已經改過
不過現在忽然又不行了~~~
目前是停在迴圈的地方, 好像跑不完的感覺
For I = 0 To Table.Length - 1
For j = 0 To Table(I).Cells.Length - 1
temparray(I, j) = Table(I).Cells(j).innertext
Next j
Next I
-------------------------
試了另一台win7電腦跑結果可以
win10跑不行 之後再重裝excel試試~~~XD
請教樓主,我有個問題:
我有個dde,其中成交價.
我想每分鐘可以自動記紀錄--->在指定工作表上,每分記錄完成--->往下一格.

的寫法?
備註:或者我可以自已設幾秒,自動紀錄嗎?
(如下圖紅色框框,這格數字,每分鐘指定工作表上(並在前面一格可以有當下紀錄時間)


謝謝樓主大大.感恩
g80860 wrote:
我有個dde,其中成交價.
我想每分鐘可以自動記紀錄--->在指定工作表上,每分記錄完成--->往下一格.


不好意思,我沒在用dde,我是不會分析的無腦存股族
您可以google,各券商dde相關範例網路上很多了

但一般寫法大約如下
排程、往下記錄,簡易範例,請參考
Dim lastrow As Double

Sub start()

Cells.Clear
lastrow = 0
Application.OnTime TimeValue("21:15:00"), "record" '開始時間

End Sub

Sub record()

lastrow = lastrow + 1 '每次往下一列

'==========
'程式碼放這邊
Cells(lastrow, 1) = Format(Now, "hh:mm:ss") ' test
Cells(lastrow, 2) = Rnd(Timer) 'test
'==========
If Format(Now, "hh:mm") = "21:20" Then '結束時間
Cells(lastrow + 1, 1) = "end" 'debug
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:03"), "record" '間隔秒數

End Sub
感謝樓主,我研究看看,謝謝你。
關閉廣告
文章分享
評分
評分
複製連結
請輸入您要前往的頁數(1 ~ 143)

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