MATLAB与Excel无缝连接：生成带图片方法.pdfVIP

问题：如何将自动导入Excel或Word文件中，换句话说，就是怎样用matlab生成带有

的Excel和Word文档，对此，我分别写了下面两个小程序，并在matlab2008a中经过

了测试。

1.用matlab生成带有的Excel文档

functionceshi_Excel

%设定测试Excel文件名和路径

fipec_user=[pwd\测试.xls];

%判断Excel是否已经打开，若已打开，就在打开的Excel中进行操作，

%否则就打开Excel

try

Excel=actxGetRunningServer(Excel.Application);

catch

Excel=actxserver(Excel.Application);

end;

%设置Excel属性为可见

set(Excel,Visible,1);

%返回Excel工作簿句柄

Workbooks=Excel.Workbooks;

%若测试文件存在，打开该测试文件，否则，新建一个工作簿，并保存，文件名为测试.Excel

ifexist(fipec_user,file);

Workbook=invoke(Workbooks,Open,fipec_user);

else

Workbook=invoke(Workbooks,Add);

Workbook.SaveAs(fipec_user);

end

%返回工作表句柄

Sheets=Excel.ActiveWorkBook.Sheets;

%返回第一个表格句柄

sheet1=get(Sheets,Item,1);

%激活第一个表格

invoke(sheet1,Activate);

%如果当前工作表中有图形存在，通过循环将图形全部删除

Shapes=Excel.ActiveSheet.Shapes;

ifShapes.Count~=0;

fori=1:Shapes.Count;

Shapes.Item(1).Delete;

end;

end;

%随机产生正态分布随机数，画直方图，并设置图形属性

zft=figure(units,normalized,position,...

问题：如何将自动导入Excel或Word文件中，换句话说，就是怎样用matlab生成带

有的Excel和Word文档，对此，我分别写了两个小程序，并在matlab2008a中经过

了测试。

1.使用matlab生成带的Excel文档

functionceshi_Excel%设置测试Excel文件名和路径fipec_user=[pwd\测试.xls];

%判断Excel是否已经打开，若已打开，就在打开的Excel中进行操作,%否则就打开

Excel尝试ExcelactxGetRunningServer(Excel.Application);捕获Excel=

actxserver(Excel.Application);结尾;%设置Excel属性为可见set(Excel,Visible,1);

%返回Excel工作簿句柄Workbooks=Excel.Workbooks;%若测试文件存在，打开该

测试文件，否则，新建一个工作簿，并保存，文件名为测试.Excelif

exit(fipec_user,file);工作簿=invoke(Workbooks,打开,fipec_user);else工

作簿=invoke(Workbooks,添加);工作簿.SaveAs(fipec_user);end%返回工作表句

柄Sheets=Excel.ActiveWorkBook.Sheets;%返回第一个表格句子柄sheet1=