[已解决]请问VBA怎么实现二进制数据的提取

Yi.King · 发表于 2011-11-27 22:53

各位大侠们，请问VBA怎么读取二进制代码，并显示到Excel中。例如数据

最佳答案

月排行榜 / 总排行榜

吕?布

2011-11-28 17:07

VBA怎么实现二进制数据的提取.rar (448.12 KB, 下载次数: 186)

那么的帅 · 发表于 2011-11-27 23:15

附件有问题

Yi.King · 发表于 2011-11-28 13:25

那么的帅发表于 2011-11-27 23:15
附件有问题

附件为二进制文件，一般是看不到的

吕?布 · 发表于 2011-11-28 13:26

你这附件是什么东西啊

Yi.King · 发表于 2011-11-28 13:29

吕?布发表于 2011-11-28 13:26
你这附件是什么东西啊

二进制代码，需要转换才能看到

吕?布 · 发表于 2011-11-28 14:38

2010中，
Option Explicit

Sub Demo()
Dim f As Integer, b() As Byte
Dim lLen As Long, i As Long

f = FreeFile
Open ThisWorkbook.Path & "\数据" For Binary As #f
lLen = LOF(f)
ReDim b(1 To lLen)

' 1. 一次性读入
Get #f, , b()

' ' 2. 逐个读入
' For i = 1 To LOF(f)
'       Get #f, i, b(i)
' Next i

Close #f

Dim lU As Long
Dim arrN() As String, arrS() As String
Dim lRow As Long, lCol As Long

lU = Int(lLen / 16)
If lU * 16 < lLen Then lU = lU + 1

ReDim arrN(1 To lU, 1 To 16)
ReDim arrS(1 To lU, 1 To 16)
For i = 1 To lLen
      lRow = (i - 1) \ 16 + 1
      lCol = (i - 1) Mod 16 + 1
      arrN(lRow, lCol) = Hex(b(i))
      arrS(lRow, lCol) = Chr(b(i))
Next

Range("A2").Resize(UBound(arrN, 1), UBound(arrN, 2)) = arrN
Range("Q2").Resize(UBound(arrS, 1), UBound(arrS, 2)) = arrS
End Sub

Yi.King · 发表于 2011-11-28 15:26

吕?布发表于 2011-11-28 14:38
2010中，
Option Explicit

Open ThisWorkbook.Path & "\数据" For Binary As #f
兄弟，程序执行到这一步显示错误‘75’，提示为路径/文件访问错误
如果我把文件放到D盘中（D:/数据/mrr

吕?布 · 发表于 2011-11-28 16:59

Yi.King 发表于 2011-11-28 15:26
Open ThisWorkbook.Path & "\数据" For Binary As #f
兄弟，程序执行到这一步显示错误‘75’，提示为路径 ...

你要把装VBA的Excel文件与你提供的二进制文件"数据"放在同一个文件夹下
另外，由于二进制文件比较长，要2010格式文件才能显示内容（每16字节写一行）

吕?布 · 发表于 2011-11-28 17:07

VBA怎么实现二进制数据的提取.rar (448.12 KB, 下载次数: 186)

Yi.King · 发表于 2011-11-28 19:33

兄弟，不错！谢谢诶

		自动登录	找回密码
密码			注册

[已解决]请问VBA怎么实现二进制数据的提取

评分