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

tracy1991621

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

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

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

自動存入另一個工作頁


求版上大大幫幫忙

c_c_lai

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

tracy1991621

匯率資訊的資訊一直更新

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

yuhuahsiao

回復 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

tracy1991621

回復 4# yuhuahsiao

不好意思~有辦法做到每兩小時更新嗎?

tracy1991621

回復 4# yuhuahsiao

我希望他能自動更新

genes

回復 3# tracy1991621

下面這個每分鐘更新一次

1. Sub RefreshData2()
   
2.     'A macro that runs itself every minute
   
3. 
   
4.     ThisWorkbook.UpdateLink Name:="C:\Clients\Wrox\Data.xls", Type:= _
   
5.                             xlExcelLinks
   
6.     mdteScheduledTime = Now + TimeSerial(0, 1, 0)
   
7.     Application.OnTime mdteScheduledTime, "RefreshData2"
   
8.     MsgBox "Data refreshed"
   
9.    
   
10. End Sub

複製代碼

tracy1991621

回復 7# genes


    謝謝你我會試試看的