[VBA ] 即時抓取資料的問題
小女子剛學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)
→
08/15 19:28, , 1F
08/15 19:28, 1F
→
08/15 21:19, , 2F
08/15 21:19, 2F