作者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