求用VBA解析一份文件转换成能看懂的类似TXT的文本文件

kevinchengcw

1. Sub test()
   
2. Dim bArr() As Byte, N&, R&
   
3. With CreateObject("adodb.stream")
   
4.    .Type = 1: .Mode = 3: .Open: .LoadFromFile "d:\test\000.X24093.1-05"
   
5.    .Position = 0: bArr = .read: .Close
   
6. End With
   
7. For N = &HED To UBound(bArr) Step 6
   
8.    If bArr(N) = 0 Then Exit For
   
9.    R = R + 1
   
10.    Cells(R, 1).Resize(, 6).Value = Array(bArr(N), bArr(N + 1), bArr(N + 2), bArr(N + 3), bArr(N + 4), bArr(N + 5))
    
11. Next N
    
12. End Sub
    

复制代码