VBAでバイナリファイルを読込むサンプル

健忘録

'*****************************************************************************
'[概要] バイナリファイルを読込む
'[引数] ファイル名、読込むセルの位置、1行当たり何バイト表示するか
'*****************************************************************************
Public Sub LoadBinaryFile(ByVal strFilename As String, ByRef objCell As Range, Optional ColSize As Long = 16)
On Error GoTo ErrHandle
    Dim RowSize As Long
    RowSize = Int((FileLen(strFilename) + ColSize - 1) / ColSize)
    ReDim Data(1 To ColSize, 1 To RowSize) As Byte
        
    Dim File As Integer
    File = FreeFile()
    Open strFilename For Binary Access Read As #File
    Get #File, , Data
    Close #File

    Dim x As Long
    Dim y As Long
    For y = 1 To RowSize
        For x = 1 To ColSize
            objCell.Cells(y, x) = Data(x, y)
        Next
    Next
ErrHandle:
End Sub