将MATLAB数据保存到Excel中

转载自：blog.sina.com.cn/xywatersky

excel = actxserver('excel.application'); % 打开一个excel操作对象

set(excel,'visible',2); % 使excel对象可见，即打开excel窗口，

% 实际应用时设置其为不可见

workbooks = excel.workbooks; % 创建工作本组对象

workbook = invoke(workbooks,'add'); % 添加一个工作本

sheets = excel.activeworkbook.sheets; % 获取当前活跃工作本的表单组，一个工作本有三个表单（sheets）

sheet = get(sheets,'item',1); % 获取表单组的一个表单

invoke(sheet,'activate'); % 激活该表单

activesheet = excel.activesheet; % 获取当前活跃表单的句柄

activesheetrange = get(activesheet,'range','a1:a170'); % 设置写到范围

set(activesheetrange,'value',10); % 写入数据

invoke(workbook,'saveas','w.xls'); % 保存文件