Доброе утро уважаемые форумчане. Прошу вашей помощи, так как у самого не осталось мыслей.
Есть файл Ексель (прикладываю), он формирует файл Ворд, вносит туда данные и сохраняет его в ПДФ (так было нужно по условию задания) (в оригинале он формирует еще файл XML для передачи данных)
Нужно созданный (или создаваемый) файл ПДФ перекодировать макросом в Base64. В интренете есть макросы, люди пишут что макросы рабочие. Но у меня не получается с ними ничего сделать. Прошу показать или написать. (может я не туда макрос вставляю или не правильно запускаю)
Заранее спасибо всем откликнувшимся.
Примеры макросов по кодированию так же прилагаю.
Есть файл Ексель (прикладываю), он формирует файл Ворд, вносит туда данные и сохраняет его в ПДФ (так было нужно по условию задания) (в оригинале он формирует еще файл XML для передачи данных)
Нужно созданный (или создаваемый) файл ПДФ перекодировать макросом в Base64. В интренете есть макросы, люди пишут что макросы рабочие. Но у меня не получается с ними ничего сделать. Прошу показать или написать. (может я не туда макрос вставляю или не правильно запускаю)
Заранее спасибо всем откликнувшимся.
Примеры макросов по кодированию так же прилагаю.
Код |
---|
Function Base64FromFile$(FilePath$) 'получение base64 файла Dim ByteArr() As Byte Open FilePath For Binary Access Read As #1 ReDim ByteArr(LOF(1)) Get #1, 1, ByteArr Close #1 With CreateObject("MSXML2.DOMDocument").createElement("b64") .DataType = "bin.base64" .nodeTypedValue = ByteArr Base64FromFile = .text End With End Function Function EncodeBase64(text As String) As String Dim arrData() As Byte arrData = StrConv(text, vbFromUnicode) Dim objXML As MSXML2.DOMDocument Dim objNode As MSXML2.IXMLDOMElement Set objXML = New MSXML2.DOMDocument Set objNode = objXML.createElement("b64") objNode.DataType = "bin.base64" objNode.nodeTypedValue = arrData EncodeBase64 = objNode.text Set objNode = Nothing Set objXML = Nothing End Function |