【VBA】変換まとめ

VBAの変換処理を紹介します。
まだ工事中です。

* ①Byte→String

Function ConvertBinToText(aSrc() As Byte) As String
    Dim i As Long
    For i = 0 To UBound(aSrc)
        Dim lHex As String
        '1バイトずつ16進数に変換
        lHex = Right$("00" & Hex(aSrc(i)), 2)
        lDst = lDst + lHex
        DoEvents
    Next
    ConvertBinToText = lDst
End Function

変換とは直接関係ないですが、変換サイズが大きすぎると固まるので”DoEvents”を追記しています。