麻辣家族討論版版 - Powered by Discuz! Board

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

作者: tracy1991621 時間: 2013-10-10 03:38 標題: 以vbn讀取網址每分鐘更新將資料存至另一工作頁

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

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

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

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

自動存入另一個工作頁

求版上大大幫幫忙

作者: c_c_lai 時間: 2013-10-10 16:18

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

作者: tracy1991621 時間: 2013-10-11 19:29

匯率資訊的資訊一直更新

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

作者: yuhuahsiao 時間: 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

作者: tracy1991621 時間: 2013-10-16 13:00

回復 4# yuhuahsiao

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

作者: tracy1991621 時間: 2013-10-16 13:01

回復 4# yuhuahsiao

我希望他能自動更新

作者: genes 時間: 2013-10-17 02:07

回復 3# tracy1991621

下面這個每分鐘更新一次

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

複製代碼

作者: tracy1991621 時間: 2013-10-17 12:57

回復 7# genes

謝謝你我會試試看的

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)