回復 10#FAlonso
Private Sub MyDee()
Dim Sh As Worksheet, Rng As Range, 代號 As String
Static Run_Time As Date 'Static 陳述式宣告的變數，在程式執行期間，會一直保留內容
' If Time > TimeValue("13:30") Then Exit Sub ' 收盤時間後 停止執行
Set Sh = Sheets("紀錄")
代號 = Sheets("紀錄").[C1]
Sh.Activate
With Sheets("匯入").QueryTables(1)
.Connection = "URL;http://tw.stock.yahoo.com/q/q?s=" & 代號
.Refresh False
If InStr(.ResultRange.Rows(3).Cells(1), 代號) = 0 Then GoTo Refresh_Err:
Application.EnableEvents = False
Set Rng = Sh.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, .ResultRange.Columns.Count - 1)
Rng.Value = .ResultRange.Rows(3).Value
Application.EnableEvents = True
Rng.Select
End With
Run_Time = Now + TimeValue("00:00:10")
Application.OnTime Run_Time, "MyDee" '設定 10秒後 執行 MyDee 程序
Exit Sub
Refresh_Err:
On Error Resume Next
Application.OnTime Run_Time, "MyDee", , False '清除先前設定的程序
MsgBox "找不到 " & Sheets("紀錄").[C1] & " 股票"
End Sub
發表於 2011-4-2 20:41
| 
發表於 2011-4-3 12:27
| 
