一旦您允许以编程方式访问VBA项目,我建议您将宏写入文本文件(* .txt或* .bas),然后运行导入此文本文件的命令具有VBA代码模块.例如:
DataFileName = 'D:\Test\DataFile.xlsm';
CodeFileName = 'D:\Test\CodeFile.txt';
Excel = actxserver('Excel.Application');
Workbooks = Excel.Workbooks;
Workbook=Workbooks.Open(DataFileName);
% Make Excel visible (Optional)
Excel.visible = 1;
%% Import the code
Import(Workbook.VBProject.VBComponents,CodeFileName);
%% Save
Excel.Application.DisplayAlerts = 0; %Avoid overwrite warning
SaveAs(Workbook,DataFileName);
Excel.Application.DisplayAlerts = 1;
%% Close Excel
Quit(Excel);
delete(Excel);
在这种情况下,CodeFile.txt可能如下所示:
Attribute VB_Name = "ModuleName"
Option Explicit
Sub SomeMacro()
Msgbox "From MATLAB, with love..."
End Sub
这里,行属性VB_Name = …是必不可少的,将确定模块的名称.对于Option Explicit,它不是强制性的,但它是good practice.