返回列表 上一主題 發帖

多網頁同時抓取問題請益？

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-1 18:55 | 顯示全部帖子

多網頁同時抓取問題請益？

假設有相同的網頁，例如：http://stock.wearn.com/astock.asp?kind=2330

假設代碼從1101~3000

小弟想1000~2000開一個網頁抓
2001~3000開另一個網頁抓

上面的網站很快，只是舉例…
小弟只知道要設兩個類似Set IEa = CreateObject("InternetExplorer.Application")，Set IEb = CreateObject("InternetExplorer.Application")，可是代碼寫在同一個sub，還是會先後執行…

不知道有高手可以指點一下嗎？
這樣可以省下抓取的時間
  1. Sub vba打開網頁()
  2.     Dim IE As Object
  3.     Set IE = CreateObject("InternetExplorer.Application")
  4.        IE.Visible = True
  5.        IE.Navigate ("http://stock.wearn.com/astock.asp?kind=2330")

  7. 抓網頁…下面小弟會寫

  9. End Sub
複製代碼
收藏 分享

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2013-8-2 15:40 | 顯示全部帖子
luhpro大的範例的確可行

不過小弟的程式都要上網頁抓資料，都有下面這行設定(會開啟ie)，所以即使在doevents的設定下，也不能按下另一個按鈕

本來想說開兩個網頁抓，時間會省一半，不過還是不能按下去

不知有解嗎？
謝謝

Set xa = CreateObject("internetexplorer.application")

Set xb = CreateObject("internetexplorer.application")

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
3#
發表於 2013-8-3 01:29 | 顯示全部帖子
回復 4# luhpro

感謝大大的回應，我會試著同時多開幾個網頁，分散下載至不同sheet中，再分批讀取出來試試看

如果有機會再報告給大家知道

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題