返回列表 上一主題 發帖

[發問] 可否用迴圈或變數匯入大量資料?

回復 90# smart3135

速度只能每三秒抓一次就不會鎖ip

慢一點當然更好

目前我也是這樣試出來的

TOP

本帖最後由 smart3135 於 2018-2-12 22:57 編輯

回復 91# joey0415
不好意思 請問要怎麼設定三秒抓一次 不是很懂這個語法
我目前是暫時把IE.Applictation放在迴圈中,等抓完一檔後再跳下一檔前再將IE.Quit
鎖IP的情形有大幅改善,偶有發生,但仍比原來最多只抓25檔好很多了
上市年成交資訊-破解流量限制版本.zip (26.55 KB)

TOP

回復 87# GBKEE
版主,再請教一下,我有重新寫了一個VBA,和原來抓的方式不一樣,是用HTML網址下去抓
可以直接帶入變數股票號碼直接抓,問題是抓下來的日期格式在寫入文字檔時,就會自己轉換成2018/X/X
有我試著在寫進文字檔前將儲存格格式變更成文字,但卻會顯示成另一個數字(圖片綠框處)
不知道該怎麼寫才能讓日期顯示在excel的結果和網頁一樣,並且設定成文字格式,寫進文字檔時才不會又轉換成日期格式
再請您指導一下,謝謝。

上市年成交資訊-新網頁.zip (31.88 KB)

TOP

回復 93# smart3135
測試了一下,用新網頁去抓資料還是有流量限制,一樣到約25檔就抓不了了
語法中也未加入IE.Application,沒辦法做 IE.Quit,所以看來這個VBA還是沒辦法破解流量限制

TOP

回復 94# smart3135

不是不行而是你沒有認真想

這是只其中一種等待的方法

for i=XXX to XXX
Application.Wait Now + TimeValue("00:00:03")

next

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題