在Excel文件中嵌入EXE文件

Question

我使用：

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

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

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

那么我将如何执行它？

想法：

1 - 某种 bin2str 函数将二进制转换为字符串（这样我可以将其作为变量和 str2bin （相反）存储在程序中

2 -我读过一些关于 OLE Con​​trol 的内容（您可以将其嵌入其中），但我真的不知道从哪里开始

Answer 1

下面是避免 OLE 的大纲解决方案：

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

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

Answer 2

您可以通过使用以下命令来完成此操作：插入 >对象，然后选择“从文件创建”。

使用 VBA 将其添加到工作表中：

Dim o As OLEObject
Set o = ActiveSheet.OLEObjects.Add(Filename:="C:\program.exe")

那么这是执行 program.exe 的命令：

o.Verb Verb:=xlPrimary

但是，不确定如何向其传递参数（例如您的文件名）。

注意：不受信任的应用程序在运行时会提示警告。

Answer 3

在@DavidHeffernan的回复中添加代码（base64方法）：

1. 插入base64。

#Linux
cat input.exe | base64 > output.txt

# Windows
certutil -encodehex -f "input.exe" "output.txt" 0x40000001 1>null

# Python
import base64
with open("input.exe", "rb") as file_in:
    with open("output.txt", "wb") as file_out:
        file_out.write(base64.b64encode(file_in.read()))

当前版本的 Microsoft Excel 会自动将长文本拆分为多个部分，因此请在记事本中打开它并插入单元格 A1。示例：

在我的示例中，文本分为 5 个部分。

2. 添加开发者选项卡。

https://support.microsoft.com/en-us/office/show-the-developer-tab-e1192344-5e56-4d45-931b-e5fd9bea2d45

3. 创建脚本。

转到开发人员 -> Visual Basic ->双击此工作簿并将以下代码粘贴到窗口中。

Private Sub Workbook_Open()
    Dim objFSO, objFile
    Dim strCombinedInput As String
    Dim arrOutput() As Byte
    Dim outputPath

    ' Initialize FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' Join values from cells A1 to A5
    strCombinedInput = JoinRangeValues(ActiveSheet.Range("A1:A5")) ' EDIT TO YOUR RANGE
    
    ' Decode Base64
    arrOutput = DecodeBase64(strCombinedInput)

    ' Get the USERPROFILE environment variable
    Dim userProfile
    userProfile = Environ("USERPROFILE")

    ' Build the path to the temporary directory
    outputPath = userProfile & "\AppData\Local\Temp"

    ' Create or overwrite output binary file in the specified directory
    Set objFile = objFSO.CreateTextFile(outputPath & "\output.exe", True)
    objFile.Write BinaryToString(arrOutput)
    objFile.Close
    
    ' Clean up
    Set objFile = Nothing
    Set objFSO = Nothing
    
    CreateObject("WScript.Shell").Exec (outputPath & "./output.exe")
End Sub

Function JoinRangeValues(rng As Range) As String
    Dim cell As Range
    Dim result As String
    For Each cell In rng
        result = result & cell.Value & vbCrLf
    Next cell
    JoinRangeValues = result
End Function

Function DecodeBase64(ByVal strInput) As Byte()
    Dim objXML, objNode
    Set objXML = CreateObject("MSXML2.DOMDocument.6.0")
    Set objNode = objXML.createElement("b64")
    
    ' Decode Base64
    objNode.DataType = "bin.base64"
    objNode.Text = strInput
    DecodeBase64 = objNode.NodeTypedValue
    
    ' Clean up
    Set objNode = Nothing
    Set objXML = Nothing
End Function

Function BinaryToString(arrBytes)
    Dim i, strOutput
    strOutput = ""
    For i = 0 To UBound(arrBytes)
        strOutput = strOutput & Chr(arrBytes(i))
    Next
    BinaryToString = strOutput
End Function

确保您已编辑单元格范围。

以上代码从指定单元格中获取值，解码 Base64，将其保存到 %temp%/output.exe 并执行它。 当您单击启用内容按钮时，代码会在启动时执行。