vba 二进制文件导致溢出

Question

我正在尝试使用 word 中的宏将此数据写入二进制文件。如果我运行这个我在行 Put #handle, , CByte("&H" & output(i) 上得到这个错误 "Execution error Overflow (Error 6)" )

我该如何解决这个问题？谢谢

Sub HexStringToBinaryFile()


    lol50

    Dim output() As String
    output = Split(lol, "|")

    Dim handle As Long
    handle = FreeFile
    Open "C:\test.bin2" For Binary As #handle

    Dim i As Long
    For i = LBound(output) To UBound(output)

        Put #handle, , CByte("&H" & output(i))

    Next i

    Close #handle

End Sub
  Sub lol50()
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|01"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|02"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|03"


End Sub

Answer 1

问题是您没有在 lol 分配行的末尾放置分隔符。因此，当它们被拆分时，上一行的最后 2 位数字与下一行的前 2 行连接在一起。

这里出现错误：

lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|01"
lol = lol & "00|00|00|00|00|00|00|00|40|00|00|00|00|00|00|00"

解析时，01 和 00 之间没有分隔符（在下一行），因此 0100 的值会产生溢出。

以 | 结束每个 lol 分配行，错误应该消失。

Answer 2

Jason 的答案是正确的，但我不确定构建一个字符串并将其拆分成一个数组是最好的方法。您可能会考虑直接填充一个数组。

Private lol(1 To 4656) As String

Sub HexStringToBinaryFile()

    Dim i As Long
    Dim handle As Long

    lol50

    handle = FreeFile
    Open "C:\test.bin2" For Binary As #handle
        For i = LBound(lol) To UBound(lol)
            Put #handle, , CByte("&H" & lol(i))
        Next i
    Close #handle

End Sub
Sub lol50()

    Dim i As Long

    For i = 1 To 4656
        lol(i) = "00"
    Next i

    For i = 9 To 4656 Step 16
        lol(i) = "40"
    Next i

    lol(4000) = "01"
    lol(4416) = "02"
    lol(4656) = "03"

End Sub

vba 二进制文件导致溢出

vba binary file cause overflow

excel

vba

ms-word

ms-office