Можно ли прикрепить (вложить) произвольные файлы в обычную книгу Excel?
А потом извлечь эти файлы в заданную папку, и работать с ними?
Казалось бы, Excel такого не позволяет. (а если и позволяет, то извлечь вложенные файлы без из запуска - весьма проблематично)
Но, при помощи макросов, можно реализовать что угодно (и сохранение\извлечение файлов в том числе)
Теперь прикрепить к книге Excel любой файл, а затем извлечь его в любую папку под заданным именем, можно при помощи нескольких строк кода!
В прикреплённом к статье файле находятся 2 модуля класса (AttachedFiles и AttachedFile), а также примеры их использования в виде макросов, позволяющих управлять вложениями в книге Excel.
Пример использования функционала модулей класса для сохранения в книге Excel исполняемого файла, с последующим извлечением:
Sub ПрикрепитьФайл() ' прикрепляем файл к книге Excel
Dim FileManager As New AttachedFiles, res As Boolean
res = FileManager.AttachNewFile("C:\WINDOWS\notepad.exe")
End SubSub ИзвлечьФайл() ' из книги Excel на диск
Dim FileManager As New AttachedFiles, res As Boolean
On Error Resume Next ' на случай, если среди вложений нет файла notepad.exe
res = FileManager.GetAttachment("notepad.exe").SaveAs("C:\MyProgram.exe")
End SubSub ЗапуститьВложенныйФайл() ' из книги Excel на диск
Dim FileManager As New AttachedFiles
On Error Resume Next ' на случай, если среди вложений нет файла notepad.exe
FileManager.GetAttachment("notepad.exe").Run
End Sub
