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






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

1.create temporary binary file test.bin