Re: 分割前調整後の株価の抽出 (Protra-users 154) - Protra

--- Mike Zang <mikez****@yahoo*****> wrote:

> 先ほど、VBAで下記の型を定義して、最新のデータファイルを
> 試したが、結果は正しくないらしい、どこに問題がありますか？
> あと、データは昇順ですか？

私の手元ではExcel/VBAで以下のようにしてデータを読んだところ、
正常に読めることを確認できました。データは昇順です。

Private Type StockData
    Days As Long
    Open As Long
    High As Long
    Low As Long
    Close As Long
    Volume As Double
End Type

Public Sub ReadRecord()
    Dim intF As Integer
    intF = FreeFile
    Open "データのパス\price\1\1001" For Binary As #intF
    Dim rec As StockData
    For i = 1 To 10
        Get #intF, , rec
        Cells(i, 1).Value = rec.Days - 693593
        Cells(i, 2).Value = rec.Open
        Cells(i, 3).Value = rec.High
        Cells(i, 4).Value = rec.Low
        Cells(i, 5).Value = rec.Close
        Cells(i, 6).Value = rec.Volume
    Next i
    Close #intF
End Sub

それからVBAの質問はこれ以上は自粛してください。
Protraとは関係のない話題ですので。

-- panacoran

Protra

[Protra-users 154] Re: 分割前調整後の株価の抽出