excel - 如何在 Excel/VBA 中从十六进制代码创建文件

Question

我在 Excel 工作簿中有十六进制格式的代码。每个 2 位数的代码都在一个单独的单元格中，因此它看起来像 4D|54|68|64|00|00|00|06 等。也可能有一些带有 4 或 6 位数的单元格，如果它让它变得更简单。有什么方法可以从这里编码文件吗？实际上我需要它，以便在十六进制编辑器中打开文件将显示代码。我有一种感觉，这可能涉及 HEX2DEC 或 HEX2BIN，但即使那样我也不知道从那里去哪里。

Answer 1

在将字符串转换为字节方面可能不是最有效的解决方案，但只需以二进制模式打开文件并将字节放入其中就可以了:

Sub HexStringToBinaryFile()

    Dim hex_val As String
    hex_val = "4D|54|68|64|00|00|00|06"

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

    Dim handle As Long
    handle = FreeFile
    Open "C:\Dev\test.bin" 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