comment puis-je lire un fichier binaire à l'aide de VBA?

J'ai un fichier binaire qui a entraîné à partir d'un programme écrit en Compaq Visual Fortran.
Comment puis-je lire des lignes spécifiques et de les enregistrer dans une feuille Excel?

Comment un fichier binaire ont des "lignes"?

OriginalL'auteur | 2009-03-18

  1. 6

    Vous devez l'ouvrir à l'aide de "l'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

    OriginalL'auteur Curtis Inderwiesche

  2. 5

    Un autre moyen est d'utiliser 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, il en, qui est pourquoi cet exemple de code utilise la fonction CreateObject et le littérale valeur 1 au lieu de la constante nommée adTypeBinary!)

    La bibliothèque de Microsoft, qui est l'Objet de Données Active.

    OriginalL'auteur Todd Owen

  3. 2

    Si vous voulez lire le fichier en entier dans un grand tableau, vous pouvez utiliser le code suivant:

    Dim byteArr() As Byte
Dim fileInt As Integer: fileInt = FreeFile
Open "C:\path\to\my\file.ext" For Binary Access Read As #fileInt
ReDim byteArr(0 To LOF(fileInt) - 1)
Get #fileInt, , byteArr
Close #fileInt

    Le résultat est identique à la réponse par Todd Owen, mais réalisée sans l'utilisation de bibliothèques externes.

    OriginalL'auteur Erik A