[VBA ] 即時抓取資料的問題

[pig750221 (pig)]

小女子剛學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)
→ MOONRAKER:時間可以這樣寫 #09:00:00# 比較 T >= #09:00:00#
→ fumizuki:要注意日期的部份 只給時間的話會有預設日期1899/12/30