返回列表 上一主題 發帖

[已解決]如何抓取網頁資料

[已解決]如何抓取網頁資料

本帖最後由 superrednew 於 2011-10-23 19:53 編輯

例如:http://www.trademag.org.tw/ExchangeRate.asp?vdate=2011/10/10  , 最後日期為2011/10/10
假設我要抓取2009/01/01~now 的資料 , 我要如何寫呢
With ActiveSheet.QueryTables.Add(Connection:= "http://www.trademag.org.tw/ExchangeRate.asp?vdate=2011/10/10  " ....要如何改
A3 1 B3=TODAY()
A4 2 B4=DATE(YEAR(B3),MONTH(B3),DAY(B3)-1)
A5 3 B5=DATE(YEAR(B3),MONTH(B3),DAY(B3)-2)

..................................
資料能貼上

Book.rar (11.89 KB)

我有傳送檔案不知道為何都沒看到我的檔案 , 哪裡出錯了

TOP

回復 3# oobird
我已經壓縮了 , 但似乎我可能選錯吧 還在研究中

TOP

本帖最後由 superrednew 於 2011-10-17 21:44 編輯

裡面有我錄製的巨集,但是我希望能寫一個能 自動更新 的excel
range A裡面紀錄著 數目 ---代表有多少筆數據
range B------代表日期
sheet2 我裡面是用web擷取網路資訊 ,再把各個國家的匯率複製,用行列轉換貼到sheet1

sheet2裡面有 程式碼 , 小弟我還是個新手 , 大約看得懂程式碼的意思 , 但完全不會寫....
想請教各位,要如何一次更新這麼多筆數據,但是我又希望這些數據是

從ex 2009/01/01~today 假設這有1000筆數據
過了兩天 就會變成 2009/01/03~today 依然是1000筆數據

TOP

謝謝oobird 版主 , 收獲很多 , 我研究看看 , 解決我不少問題 , 一般人通長不會這樣用

更新這麼多數據因為會讓excel跑很慢 , 只是我個人想試試看不記錄數據 , 感覺起來如何...

總之很感謝您 ....

TOP

回復 8# oobird


    跑過一次,發現日期有遺露,ex2011/10/9 , 2011/10/8 請問問題出在哪呢?

TOP

本帖最後由 superrednew 於 2011-10-19 18:05 編輯

回復 10# oobird
哈哈 抱歉

對了我可以請問一下
  s.UsedRange.Clear          為啥要用clear
For j = s.[iv3].End(1).Column To 3 Step -1                           [iv3]是甚麼?

不太懂意思謝謝!!

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題