here's the code to write - the spreadsheet just has values 0 to 255.
Sub writesomething()
Dim counter As Integer
Dim Data_1 As Byte
Dim data(1024000) As Byte
Dim imagex, imagey As Long
fileToOpen = Application _
.GetOpenFilename("jas Files (*.jas), *.jas")
'If fileToOpen <> False Then
'End If
Open fileToOpen For Binary As #1
Sheets("write it").Range("b2").Value = fileToOpen
imagex = Sheets("write it").Range("b4").Value
imagey = Sheets("write it").Range("b3").Value
For x = 0 To (imagex - 1)
For y = 0 To (imagey - 1)
Data_1 = Sheets("write it").Range("a11").Offset(y, x).Value
Put #1, , Data_1
Next y
Next x
Close #1
End Sub
The value 146 appears in many types of windows file, but I can't seem to write it to a binary file?
Hope you can help, B.