open file, show first three entries in immediate window : Binary File « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. Binary File

open file, show first three entries in immediate window

 
Private Sub LoadBinaryFile()
  Dim dbl As Double, i
  Open Environ("temp") + "\test.bin" For Binary As #1
  Seek #1, 8 * 14 + 1
  For i = 1 To 3
    Get #1, , dbl
    Debug.Print dbl
  Next i
  Close
End Sub

 

Related examples in the same category