MATLAB访问excel

《MATLAB访问excel》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、MATLAB作为自动化客户端调用Excel服务器编程  项目中最后的功能——打印报告，最终确定使用ActiveX方式访问office，这个应该称之为OLE（对象链接与嵌入）方法。通过MATLAB调用Excel服务器，可以完成一些非数据对象的交互，比如图片。  在这里演示一下MATLAB与Excel交互的整体过程，当然这里不是报告的内容，这个属于项目的资料了。这里通过简单的图片来表示，实际要做的时候，步骤和这个基本一致，只是过程麻烦些，每一个图片都要调整，然后数据内容调整，单元格格式等等：  先看一下示意的效果：示意.jpg(139.14KB)2010-5-2310:251.MAT

2、LAB打开自动化方法使用actxserver函数。如下：he=actxserver('Excel.Application');上述语句创建excel服务器，句柄值为he，通过he可以访问excel服务器的属性和方法。在使用中为了方便存储，可以设置默认路径，使用excel服务器的DefaultFilePath属性：he.DefaultFilePath='E:';调试中为了方便观看excel文件内容，可以设置excel服务器的Visible属性，实际调试时可以改为1，调试过后改为0即可：he.Visible=1;2.创建工作簿方法通过excel服务器的属性Workbooks创建工作

3、簿句柄，通过该句柄的方法Add创建工作簿：hw=he.Workbooks.Add;然后，继续通过hw的Worksheets属性建立Sheets类句柄：hs=hw.Worksheets;访问某一sheet的方法即用sheets的Item方法：sheetItem=hs.Item(1);上面即建立的sheet类句柄，可以通过该句柄访问单一sheet。3.生成带有图形的Excel，主要是figure位置和格式，粘贴时只能选择单元格，需要精细修饰就要使用下面的方法了。通过sheet类句柄的Range方法建立Range类句柄，通过其PasteSpecial方法将粘贴板内容粘贴至excel工作

4、簿由Range类句柄选中的单元，比如A1：sheetItem.Range('A1').PasteSpecial;然后每一个figure的位置等属性，可以继续修饰：hshape=sheetItem.Shapes;hs1=Item(hshape,1);hs1.IncrementLeft(358.5);hs1.IncrementTop(157.5);hs1.Placement='xlFreeFloating';上面的语句即完成将figure1右移和下移，并且设置不随单元格大小变化而改变。4.保存退出通过Workbooks类的SaveAs方法存储工作簿，通过excel类的quit属性退出

5、COM服务器。hw.SaveAs([he.DefaultFilePath'示意.xls']);he.Quit;上面就是通过MATLAB访问Excel服务器的整个过程，图片中文件的生成代码如下：复制内容到剪贴板代码:%%ACOMUtilization%$Author:  lskyp%%InterfacebetweenMATLAB&Excel%CreateCOMserverhe=actxserver('Excel.Application');he.DefaultFilePath='d:ProgramFilesMATLABR2009awork报告';he.Visible=1

6、;%Createworkbook&sheethw=he.Workbooks.Add;hs=hw.Worksheets;sheetItem=hs.Item(1);%%Generatefigureandcopy%PlotPlotAFig;hgexport(gcf,'-clipboard');sheetItem.Range('A1').PasteSpecial;PlotAFig;hgexport(gcf,'-clipboard');sheetItem.Range('A1').PasteSpecial;PlotAFig;hgexport(gcf,'-clipboard');sheetIt

7、em.Range('A1').PasteSpecial;closeall%ModifythePositionofEachFigurehshape=sheetItem.Shapes;hs1  =Item(hshape,1);hs1.IncrementLeft(100);hs1.IncrementTop(20);hs1.Placement='xlFreeFloating';hs1  =Item(hshape,2);hs1.IncrementLeft(100);hs1.Incremen