【VBA】文字列をバイナリダンプさせる

VBAで文字列をバイナリ変換してバイナリダンプする方法を紹介します。

* 手順

文字列をバイナリ変換してバイナリダンプするには下記手順を踏みます。

①文字列をバイナリに変換する
下記関数で変換できます。 変換タイプはvbFromUnicodeを指定してください。

 StrConv(変換元文字列, 変換タイプ)

② バイナリをバイナリダンプにする
1バイトずつ文字に足していきます。

* おまけ

使いやすいように関数化してみました。

Function ConvertTextToDumpText(aSrc As String) As String
    Dim lDst As String
    '文字列をバイナリに変換
    Dim lByte() As Byte
    lByte = StrConv(aSrc, vbFromUnicode)
    
    'バイナリを文字列に整形する
    Dim i As Integer
    For i = 0 To UBound(lByte)
        Dim lHex As String
        lHex = Hex(lByte(i))
        If Len(lHex) = 1 Then
            lHex = "0" + lHex
        End If
        lDst = lDst + lHex
    Next
    
    ConvertTextToDumpText = lDst
End Function

下記のように呼び出して使えます。

Sub PrintByteTest()
    Dim lStr As String
    lStr = Range("A1").Value
    Range("A2").Value = "'" +ConvertTextToDumpText(lStr)
End Sub

ぜひ使ってみてください！