将EXE文件嵌入Excel文件中

Question

我用:

retVal = Shell("program.EXE " & filename, vbNormalFocus)

要执行我的Excel电子表格的程序需求.

是否可以将EXE文件嵌入excel文件中？

然后我将如何执行呢？

Ideias:

1 - 某种bin2str函数将二进制转换为字符串(因此我可以将它作为变量存储在程序中,并将str2bin(对位)存储起来

2 - 我读了一些关于OLE控件的东西(你可以把它嵌入那里),但我真的不知道从哪里开始

Answer 1

这是一个避免OLE的大纲解决方案:

1. 创建隐藏的工作表.
2. 使用base 64编码将exe转换为文本.
3. 将该文本存储在隐藏工作表上的工作表单元格中.由于单元格中的字符数有限制(32,767),因此需要将字符串分成块.

显然,当您想要保存并执行exe文件时,您需要反转此过程.