如何在VBA宏中嵌入文本并生成文件，且无需修改原文本？

方法1：利用VBA模块注释提取文本（最适合快速粘贴大段脚本） #

这个方法无需手动修改每行脚本，只需粘贴后一键注释，再通过代码提取内容：

1. 在VBA编辑器中插入一个标准模块，将你的Linux脚本粘贴进去，选中所有脚本行按Ctrl+Q一键添加注释（每行开头自动加' ），并在脚本首尾加上标记行方便识别：

' === START_LINUX_SCRIPT ===
' #!/bin/bash
' echo "Starting deployment..."
' sudo apt update
' sudo apt install -y nginx
' # 更多500行脚本...
' === END_LINUX_SCRIPT ===

2. 编写VBA代码提取这段注释内容并生成文件：

Sub GenerateLinuxScriptFile()
    Dim module As module
    Dim scriptText As String
    Dim startMark As String, endMark As String
    Dim line As String
    Dim inScript As Boolean, i As Integer
    
    Set module = ThisWorkbook.VBProject.Modules("Module1") ' 替换为你的模块名
    startMark = "=== START_LINUX_SCRIPT ==="
    endMark = "=== END_LINUX_SCRIPT ==="
    inScript = False
    
    ' 遍历模块每一行
    For i = 1 To module.CountOfLines
        line = module.Lines(i, 1)
        If InStr(line, startMark) > 0 Then
            inScript = True
            Continue For
        End If
        If InStr(line, endMark) > 0 Then
            inScript = False
            Exit For
        End If
        If inScript Then
            ' 去掉每行开头的' 和空格，还原脚本内容
            scriptText = scriptText & Mid(line, 3) & vbCrLf
        End If
    Next i
    
    ' 写入文件
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim file As Object
    Set file = fso.CreateTextFile("C:\temp\deploy.sh", True) ' 替换为目标路径
    file.Write scriptText
    file.Close
    
    MsgBox "脚本文件已生成！"
End Sub

注意：需要在Excel选项中启用"信任对VBA项目对象模型的访问"（文件→选项→信任中心→信任中心设置→宏设置→勾选对应选项）。

方法2：用批量替换快速转换粘贴的文本 #

如果不想用注释提取，可以先把脚本粘贴到记事本，用替换功能批量处理成VBA可识别的字符串：

1. 复制Linux脚本到记事本，按Ctrl+H打开替换，勾选"正则表达式"：
   • 查找内容：^（匹配行首）
   • 替换为：" & vbCrLf & "
2. 替换后，在字符串首尾补充变量定义和赋值，示例：

Dim scriptText As String
scriptText = "" & vbCrLf & "#!/bin/bash" & vbCrLf & "echo ""Starting deployment...""" & vbCrLf & "sudo apt update" & vbCrLf & "sudo apt install -y nginx" & vbCrLf & "..."

3. 再用方法1中的文件写入代码生成脚本文件即可。

方法3：嵌入二进制资源（适合固定脚本，不频繁修改） #

如果脚本不常修改，可将.sh文件作为二进制资源嵌入Excel，需要时提取：

1. 将Linux脚本保存为deploy.sh，打开Excel按Alt+F11进入VBA编辑器，右键项目→插入→模块，再右键模块→导入文件，选择deploy.sh。
2. 编写代码提取资源并写入文件：

Sub ExtractScriptFromResource()
    Dim resourceData() As Byte
    resourceData = ThisWorkbook.VBProject.VBComponents("deploy").CodeModule.Lines(1, 1) ' 替换为导入后的模块名
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim file As Object
    Set file = fso.CreateTextFile("C:\temp\deploy.sh", True)
    file.Write StrConv(resourceData, vbUnicode)
    file.Close
    MsgBox "脚本提取完成！"
End Sub

内容的提问来源于stack exchange，提问作者fabbb