作者pig750221 (pig)
看板Visual_Basic
標題[VBA ] 即時抓取資料的問題
時間Sat Aug 15 16:23:57 2009
小女子剛學VBA
最近在練習抓取雅虎上面所提供的股票報價
我利用web查詢的方式抓取資料
然後放在我的sheet1
設定每隔1分鐘更新一次資料
然後我的sheet2是把sheet1的資料記錄下來
到這邊為止我都成功了(看書的>///<)
可是現在有一個問題
1.我的程式會每1分鐘一直更新，我不知道怎麼讓他停下來@@
就是我要怎麼設定讓程式"只抓"台股開盤到收盤這個時間
我的邏輯是這樣
If 時間有沒有>=9:00 AM AND 時間有沒有<=1:30 PM Then
開始更新資料到sheet1
開始從sheet1抓資料到sheet2
End If
以下是我目前的程式碼
Dim i As Single
Dim j As Integer
Private Sub Workbook_Open()
Call ExeSelf
End Sub
Private Sub ExeSelf()
On Error Resume Next
i = i + 1
If i = 1 Then
'Stock Name
Sheets(2).Cells(1, 1) = "Time"
For j=1 To 10
Sheets(2).Cells(1, j+1) = Sheets(1).Cells(j+2, 1)
Next j
i = i + 1
End If
Sheets(2).Cells(i, 1) = Time
For j=1 To 10
Sheets(2).Cells(i, j+1) = Sheets(1).Cells(j+2, 3)
Next j
Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkBook.ExeSelf", ,
False
End Sub
不好意思麻煩各位了
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.70.107.69
※ 編輯: pig750221 來自: 203.70.107.69 (08/15 16:29)
1F：→ MOONRAKER:時間可以這樣寫 #09:00:00# 比較 T >= #09:00:00# 08/15 19:28
2F：→ fumizuki:要注意日期的部份 只給時間的話會有預設日期1899/12/30 08/15 21:19