VBAを使用してバイナリファイルを読むにはどうすればよいですか？

Question

私はCompaq Visual Fortranで書かれたプログラムに起因するバイナリファイルを持っています。 特定の行を読み込んでExcelシートに保存するにはどうすればよいですか？

Answer 1

「バイナリアクセス」を使用して開く必要があります。

With CreateObject("ADODB.Stream") 
    .Open 
    .Type = 1 ' adTypeBinary 
    .LoadFromFile file.Path 
    bytes = .Read 
    .Close 
End With 

（申し訳ありませんが、私はこのサンプルコードはのCreateObjectを使用する理由である、それは中に何のライブラリ実際にはわからない：

は、もう一つの方法は、ADODB.Streamを使用しているhttp://www.vbforums.com/showthread.php?t=430424

Sub Temp() 
    Dim intFileNum%, bytTemp As Byte, intCellRow% 
    intFileNum = FreeFile 
    intCellRow = 0 
    Open "C:\temp.bin" For Binary Access Read As intFileNum 
    Do While Not EOF(intFileNum) 
     intCellRow = intCellRow + 1 
     Get intFileNum, , bytTemp 
     Cells(intCellRow, 1) = bytTemp 
    Loop 
    Close intFileNum 
End Sub 

Answer 2

を参照してください。名前付き定数adTypeBinaryではなくリテラル値1です）。