[發問] 以vbn讀取網址每分鐘更新將資料存至另一工作頁

本帖最後由 GBKEE 於 2013-10-12 15:49 編輯

小人沒有使用過vbn的經驗，但研究急需data
雖然努力閱讀本網站資訊但是依然難以寫出code

老師給我了一個網址可以直接用內建功能擷取，但無法以excel設定自動更新
http://www.youbike.com.tw/genxml ... &lng=121.563996

希望能每一段時間間隔自動更新後

自動存入另一個工作頁

求版上大大幫幫忙

khlkbh

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2013-10-10 16:18 | 只看該作者

回復 1# tracy1991621
看了似懂非懂，能否舉個較務實的例子？

TOP

tracy1991621

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: w7
軟體版本: 2012
閱讀權限: 10
性別: 女
來自: mb,nmb
註冊時間: 2013-10-10
最後登錄: 2013-10-21

3^#

發表於 2013-10-11 19:29 | 只看該作者

匯率資訊的資訊一直更新

我想要從網站上擷取後匯入excel
讓他在我的excel "工作頁1"中，每2分鐘自動更新資料
而更新後的"價格"和"時間"我要將他存入"工作頁2"
每次更新的資料都要存
ex:
         (第一次)                   (第二次)             ..............................
  | 時間          匯率    |    時間       匯率 |
  | 9:00          15    |    9:02       14.5 |

khlkbh

TOP

yuhuahsiao

小學生 Rank: 1

帖子: 17
主題: 0
精華: 0
積分: 22
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
性別: 男
來自: Hsinchu
註冊時間: 2013-9-5
最後登錄: 2024-7-23

4^#

發表於 2013-10-15 16:19 | 只看該作者

回復 3# tracy1991621

1.原始資料存於sheet1 a1~b2 如你所示範例
2.將每次更新後資料轉存於Sheet2

Sub test()
Sheets("sheet1").Range("A2:B2").Copy             ' copy 位置  :修改點
On Error Resume Next
Dim myClms As Range
Dim myRng  As Range
Set myClms = Sheets("Sheet2").Columns("A:A") '任意的欄範圍
With myClms
      Set myRng = .Find(What:="*", After:=.Cells(1), _
      LookIn:=xlFormulas, Searchorder:=xlByRows, _
      SearchDirection:=xlPrevious)
End With
myRng.Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
   False, Transpose:=False

End Sub

TOP

tracy1991621