如何修改VBS脚本调用外部VBA代码并将Excel另存为XLSX格式

你的需求完全可以实现——既然XLSX无法存储宏，我们可以让VBS在打开XLSX后动态创建VBA模块并写入代码，执行完成后再清理（可选）。下面提供两种可行方案：

方案一：VBS直接嵌入VBA代码 #

直接把VBA代码写在VBS脚本里，不需要额外的TXT文件，适合代码量小的场景：

Option Explicit
On Error Resume Next
ExcelMacroExample

Sub ExcelMacroExample()
    Dim xlApp, xlBook, xlModule
    Dim vbaCode
    
    ' 定义要执行的VBA代码
    vbaCode = "Sub hello()" & vbCrLf & _
              "    MsgBox ""Hello everybody""" & vbCrLf & _
              "End Sub"
    
    Set xlApp = CreateObject("Excel.Application")
    ' 可选：设为True可以看到Excel运行过程
    xlApp.Visible = False
    
    ' 打开XLSX文件（替换成你的实际路径）
    Set xlBook = xlApp.Workbooks.Open("C:\MyPath\MsgBox.xlsx", 0, False)
    
    ' 向工作簿添加一个新的VBA模块
    Set xlModule = xlBook.VBProject.VBComponents.Add(1) ' 1代表模块类型
    xlModule.CodeModule.AddFromString vbaCode
    
    ' 运行刚添加的宏
    xlApp.Run "hello"
    
    ' 可选：删除刚添加的模块，避免在文件里留下宏代码
    xlBook.VBProject.VBComponents.Remove xlModule
    
    ' 关闭工作簿（不保存，因为XLSX不能存宏）
    xlBook.Close False
    xlApp.Quit
    
    ' 释放对象
    Set xlModule = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

方案二：从TXT文件读取VBA代码 #

如果你的VBA代码比较长，或者需要单独维护，把代码存在TXT里更方便：

第一步：准备Module.txt文件 #

在C:\MyPath\Module.txt里写入你的VBA代码：

Sub hello()
    MsgBox "Hello everybody"
End Sub

第二步：修改VBS脚本读取TXT内容 #

Option Explicit
On Error Resume Next
ExcelMacroExample

Sub ExcelMacroExample()
    Dim xlApp, xlBook, xlModule
    Dim vbaCode, fs, txtFile
    
    ' 读取TXT里的VBA代码
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set txtFile = fs.OpenTextFile("C:\MyPath\Module.txt", 1) ' 1代表只读模式
    vbaCode = txtFile.ReadAll
    txtFile.Close
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    
    Set xlBook = xlApp.Workbooks.Open("C:\MyPath\MsgBox.xlsx", 0, False)
    
    ' 添加模块并写入读取到的代码
    Set xlModule = xlBook.VBProject.VBComponents.Add(1)
    xlModule.CodeModule.AddFromString vbaCode
    
    ' 运行宏
    xlApp.Run "hello"
    
    ' 清理模块
    xlBook.VBProject.VBComponents.Remove xlModule
    
    xlBook.Close False
    xlApp.Quit
    
    ' 释放所有对象
    Set txtFile = Nothing
    Set fs = Nothing
    Set xlModule = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

注意事项 #

• 确保Excel的宏安全设置允许访问VBA项目对象模型：打开Excel → 文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置 → 勾选"信任对VBA项目对象模型的访问"，否则VBS会报错无法操作VBProject。
• 如果不需要看到Excel运行过程，保持xlApp.Visible = False即可，后台执行更流畅。
• 关闭工作簿时用xlBook.Close False，因为XLSX无法保存宏代码，保存也没用，反而会弹出提示。

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