java将excel转base64_将图片的base64 代码转换为 图片（jpg）

Sub Txt2Jpg(inFileFullName As String, outFileFullName As String) '转换过程

Dim a() As Byte, b() As Byte  'a 原始文件字节数组  b 生成的jpg字节数组

Dim i As Long, j As Long

Dim FileNo As Long  '文件号

FileNo = FreeFile

Open inFileFullName For Binary As FileNo '打开文件

ReDim a(LOF(FileNo) - 1)    '调整a的大小

Get FileNo, , a             '获取文件内容

Close FileNo

ReDim b((UBound(a) + 1) * 3 / 4 - 1)    '调整b的大小,b的字节数为原始文件的 3/4    4*6=3*8

For i = LBound(a) To UBound(a)    '根据对照表将字符ASCII转为0-64

If a(i) >= 65 And a(i) <= 90 Then

a(i) = a(i) - 65

ElseIf a(i) >= 97 And a(i) <= 122 Then

a(i) = a(i) - 71

ElseIf a(i) >= 48 And a(i) <= 57 Then

a(i) = a(i) + 4

ElseIf a(i) = 43 Then

a(i) = 62

ElseIf a(i) = 47 Then