以前書いたファイルのBase64エンコード・デコード処理を行うVBAマクロをメモとして残しておきます。 Option Explicit Public Sub Sample() Sheet1.TextBox1.Text = EncodeBase64("C:\Test\Sample.pdf") Debug.Print DecodeBase64(Sheet1.TextBox1.Text, "C:\Test\Sample_Decode.pdf") End Sub Private Function EncodeBase64(ByVal FilePath As String) As String 'ファイルをBase64エンコード Dim elm As Object Dim ret As String Const adTypeBinary = 1 Const adReadAll = -1 ret =