本文主要用于将Matlab内容输出到指定excel文件,具有如下功能:
- 可自定义文件路径
- 如果路径下文件不存在,则新建文件
- 如果路径下文件重名,则替换文件
- 由于本人安装的WPS,使用xlswrite命令会报错,使用以下方法亲测可行
clc;
clear;
[Filename,Pathname,index]=uiputfile({'*.xls';'*.xlsx'},'另存为','test');
if index==0
return;
end;
file= [Pathname Filename];
try
Excel = actxGetRunningServer('Excel.Application');
catch
Excel = actxserver('Excel.Application');
end;
%Excel.Visible = 1;
if exist(file,'file')
delete(file);
end
Workbook = Excel.Workbooks.Add;
Workbook.SaveAs(file);
Sheets = Excel.ActiveWorkbook.Sheets;
Sheets.Item(1).name='数据';
Sheet1 = Sheets.Item(1);
Sheet1.Activate;
Sheet1.Range('A1').Value ='aaa';
Sheet1.Range('B1').Value='bbb';
Workbook.Save;
Excel.Quit;
Excel.delete;
