Below is my code (somehow the code tags are gone - so sorry-cannot post using code tags). I open the source file(#2) as a binary file and the destination file (#1) for random access. Next I do some large loops reading 4 byte single values from the source file and then save them in the destination file - for every oberservation (iix) - I have 1100 values each 4 bytes to read. As you can see the 1100 values that I read for each of the iix loop is consequtive - so is there a way I read the 1100 byte single values in a single operation and also store them in a single operation. The current loop is quite slow.
Code:
For iix = 0 To 20000
AAXdouble = ThisWorkbook.Worksheets("TempSample").Cells(iix, ColSpectraPosition)
For iiix = 0 To 9999
Get #2, Adouble, Asingle
Put #1, AXdouble, Asingle
Adouble = Adouble + 4
AXdouble = AXdouble + 4
Next iiix
Next iix
Bookmarks