- ©«¤l
- 151
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 15
- §@·~¨t²Î
- windwos 7
- ³nÅ骩¥»
- 64bit
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2017-5-29
- ³Ì«áµn¿ý
- 2024-4-29
|
¦^´_ 3# swatt
Sub Temp1()
Dim intFileNum%, byttemp As Byte, intCellRow%, pos
intFileNum = FreeFile
intCellRow = 0
fipath = "C:\hello.txt"
Open fipath For Binary Access Read As intFileNum
Do While pos < LOF(intFileNum)
intCellRow = intCellRow + 1
Get intFileNum, , byttemp
pos = Loc(intFileNum)
Cells(1, intCellRow) = Hex(byttemp)
Loop
Close intFileNum
MsgBox "Done."
End Sub |
|