| |
▼Ganga さん：
こんばんわ
かみちゃんさんご紹介のリンク先見ました。
マケスピ起動→ログイン→RSS起動→セルA1に =RSS|'6758.T'!現在値 と入力
で「6758.T」の現在値が取得できるようですね^^
私はＥトレしか持っていなので検証できませんが、
セルA1の３０分足を取得するテスト。（未検証）
（testマクロを実行してください）
************************************************************************
'シートモジュール
Private Sub Worksheet_Calculate()
If Range("A1").Value > mxv Then
mxv = Range("A1").Value
ElseIf Range("A1").Value < mnv Then
mnv = Range("A1").Value
End If
End Sub
'標準モジュール
Public stv As Long, mxv As Long, mnv As Long, nrow As Long
Sub test()
Range("A2").Value = "初値"
Range("B2").Value = "高値"
Range("C2").Value = "安値"
Range("D2").Value = "終値"
nrow = 3
Call SetProc
End Sub
Function SetProc()
Dim ntm As Date
ntm = Time()
stv = Range("A1").Value
mxv = Range("A1").Value
mnv = Range("A1").Value
If ntm >= TimeValue("09:00:00") And ntm <= TimeValue("15:00:00") Then
Application.OnTime ntm + TimeValue("00:30:00"), "GetVal"
Else
Application.OnTime TimeValue("09:00:00"), "GetVal"
End If
End Function
Function GetVal()
Cells(nrow, 1).Value = stv
Cells(nrow, 2).Value = mxv
Cells(nrow, 3).Value = mnv
Cells(nrow, 4).Value = Range("A1").Value
nrow = nrow + 1
Call SetProc
End Function
************************************************************************
ミスがあったらスイマセン。
※参考用なので、日付の処理、前引けから後場までの間の処理、決められた時間での処理、
複数銘柄の処理等は一切入れていません。
工夫して分からないようであればまた質問してください^^
※ちなみにシートモジュールと標準モジュール
ＶＢＡ画面のそれぞれにコピペします
- VBAProject (Book1)
- Microsoft Excel Objects
- Sheet 1 (Sheet 1) <- シート1のシートモジュール
- Sheet 2 (Sheet 2)
- Sheet 3 (Sheet 3)
- ThisWorkbook
- 標準モジュール
- Module1 <- 標準モジュール
|
|
漂流民
- 06/9/12(火) 1:20 -
