comment puis-je lire un fichier binaire en utilisant VBA?

Question

J'ai un fichier binaire résultant d'un programme écrit en Compaq Visual Fortran. Comment puis-je lire des lignes spécifiques et les sauvegarder dans une feuille Excel?

Answer 1

Vous devez l'ouvrir en utilisant "Accès binaire".

Voir 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

Une autre façon utilise ADODB.Stream:

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

(Désolé, je ne suis pas vraiment sûr de ce que la bibliothèque est dans, ce qui explique pourquoi ce code exemple utilise CreateObject et la valeur littérale 1 au lieu de la constante nommée adTypeBinary!)