엑셀 함수에서 16 진수 문자열을 base64로 변환

Question

길이가 16 진수 문자열로 base64로 변환해야합니다.

임의의 길이의 16 진수를 허용하는 = Hex2b64 (Hexstring)와 같은 간단한 형식의 셀 함수를 찾고 있습니다. 나는 여기저기서 조각을 발견했지만 아무도 간단한 코드 블록을 발견하지 못했다.

이 시점까지 수동으로 변환을 수행하기 위해 http://home.paulschou.net/tools/xlate/을 사용했습니다. 변환은 잘 작동하며 모든 관련 데이터베이스에서 데이터를 수신하고 적절히 구문 분석합니다.

내가받는 데이터는 16 진수로 표현 된 이진 값으로, 여러 블록으로 변환되어 있고 내가 공개하지 않은 프로젝트 문서에 따라 긴 16 진수 문자열로 연결되어 있습니다. 육각 = 00014088F6650101393939393939392D30304646463238313030000343332353430342D35353FA10000002805900100002805

및 대응하는 출력 될 것이다 :

전형적인 입력 문자열이 될 B64 = AAFAiPZlAQE5OTk5OTk5LTAwRkZGMjgxMDAAA0MzI1NDA0LTU1P6EAAAAoBZABAAAoAF

Answer 1

Function Hex2Base64(byVal strHex) 
    Dim arrBytes 
    If Len(strHex) Mod 2 <> 0 Then 
     strHex = Left(strHex, Len(strHex) - 1) & "0" & Right(strHex, 1) 
    End If 
    With CreateObject("Microsoft.XMLDOM").createElement("objNode") 
     .DataType = "bin.hex" 
     .Text = strHex 
     arrBytes = .nodeTypedValue 
    End With 
    With CreateObject("Microsoft.XMLDOM").createElement("objNode") 
     .DataType = "bin.base64" 
     .nodeTypedValue = arrBytes 
     Hex2Base64 = .Text 
    End With 
End Function