如何利用VBA读取二进制文件中的数字？

作者：绿色风分类：时间：2022-08-17 浏览：102

楼主 amulee	Q：如何利用VBA读取二进制文件中的数字？ A：利用Get语句将二进制数据读入Byte数组中，再将其分别转换为16进制后组合再转换为10进制数。本例编写了一个将数组转换成10进制数的自定义函数。参考代码如下： '数字转换 Function GetNumber(ByVal Temp) Dim StrA As String Dim StrB As String For i = UBound(Temp) To LBound(Temp) Step -1 StrB = Hex(Temp(i)) If Len(StrB) = 1 Then StrB = 0 & StrB StrA = StrA & StrB Next GetNumber = WorksheetFunction.Hex2Dec(StrA) End Function '读取四字节数字 Sub Main() Dim FName As String Dim Temp(1 To 4) As Byte '文件名 FName = ThisWorkbook.Path & "\Test" '获得一个文件号 FS = FreeFile '打开文件 Open FName For Binary Access Read As #FS Get #FS, , Temp Close #FS MsgBox GetNumber(Temp) End Sub ReadBinaryNumber.rar
2楼 dwchung	在执行第10句时出错，是什么原因。
3楼 wise	学习，好好学习
4楼 amulee	03版本没有Hex2Dec函数。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表