ش | ی | د | س | چ | پ | ج |
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
31 |
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 intFileNumEnd Sub