12
返回列表 上一主題 發帖

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

superrednew

帖子
9 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Earth 
註冊時間
2011-10-4 
最後登錄
2013-5-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-17 17:24 | 只看該作者

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

本帖最後由 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)
收藏 分享

superrednew

帖子
9 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Earth 
註冊時間
2011-10-4 
最後登錄
2013-5-21 
2#
發表於 2011-10-17 18:29 | 只看該作者
我有傳送檔案不知道為何都沒看到我的檔案 , 哪裡出錯了

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2011-10-17 19:18 | 只看該作者
壓縮成rar或zip格式才可上傳。

TOP

superrednew

帖子
9 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Earth 
註冊時間
2011-10-4 
最後登錄
2013-5-21 
4#
發表於 2011-10-17 21:27 | 只看該作者
回復 3# oobird
我已經壓縮了 , 但似乎我可能選錯吧 還在研究中

TOP

superrednew

帖子
9 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Earth 
註冊時間
2011-10-4 
最後登錄
2013-5-21 
5#
發表於 2011-10-17 21:38 | 只看該作者
本帖最後由 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
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
6#
發表於 2011-10-18 11:17 | 只看該作者
依你現有代碼，加上循環就行了。
此例取得今年的資料：
  1. Sub Macro1()
  2.     d = DateValue("2011/10/17")
  3.     i = 3
  4.     Do
  5.         dt = Application.Text(d, "yyyy/mm/dd")
  6.         Set s = Sheet2
  7.         s.UsedRange.Clear
  8.         With s.QueryTables.Add(Connection:= _
  9.                                "URL;http://www.trademag.org.tw/ExchangeRate.asp?vdate=" & dt, _
  10.                                Destination:=s.Range("$A$1"))
  11.             .Name = "17"
  12.             .FieldNames = True
  13.             .RowNumbers = False
  14.             .FillAdjacentFormulas = False
  15.             .PreserveFormatting = True
  16.             .RefreshOnFileOpen = False
  17.             .BackgroundQuery = True
  18.             .RefreshStyle = xlInsertDeleteCells
  19.             .SavePassword = False
  20.             .SaveData = True
  21.             .AdjustColumnWidth = True
  22.             .RefreshPeriod = 0
  23.             .WebSelectionType = xlSpecifiedTables
  24.             .WebFormatting = xlWebFormattingNone
  25.             .WebTables = "2"
  26.             .WebPreFormattedTextToColumns = True
  27.             .WebConsecutiveDelimitersAsOne = True
  28.             .WebSingleBlockTextImport = False
  29.             .WebDisableDateRecognition = False
  30.             .WebDisableRedirections = False
  31.             .Refresh BackgroundQuery:=False
  32.         End With
  33.         With Sheet1
  34.             For j = s.[iv3].End(1).Column To 3 Step -1
  35.                 a = s.Cells(3, j).Resize(41, 1).Value
  36.                 .Cells(i, 2) = s.Cells(1, j)
  37.                 .Cells(i, 3).Resize(1, 41) = Application.Transpose(a)
  38.                 i = i + 1
  39.             Next
  40.         End With
  41.         d = d - 7
  42.     Loop Until Year(d) < 2011
  43. End Sub
複製代碼

TOP

superrednew

帖子
9 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Earth 
註冊時間
2011-10-4 
最後登錄
2013-5-21 
7#
發表於 2011-10-18 17:19 | 只看該作者
謝謝oobird 版主 , 收獲很多 , 我研究看看 , 解決我不少問題 , 一般人通長不會這樣用

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

總之很感謝您 ....

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
8#
發表於 2011-10-18 19:54 | 只看該作者
這只是應你的要求修改你的程式
達到取歷史記錄的目的
其實該程式只要跑一遍，以後就用不到了
以後的只要每個星期更新一次，把目前範往下移，在前幾行寫入新的數據
這又是另一個不同的程式。
不必每次更新都要全程跑一遍的！

TOP

superrednew

帖子
9 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Earth 
註冊時間
2011-10-4 
最後登錄
2013-5-21 
9#
發表於 2011-10-19 08:47 | 只看該作者
回復 8# oobird


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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
10#
發表於 2011-10-19 11:19 | 只看該作者
網頁你沒看嗎？星期6、日本就沒有資料的。

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
12
返回列表 上一主題