将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'); % 保存文件