内容简介作者简介 - 科学与工程计算系

12.4.1 关于 ActiveX 的一般性说明
12.4.2 MATLAB 的 ActiveX 自动化
12.4.2.1 MATLAB ActiveX 自动化控制器
【例 12.4.2-1】MATLAB 以自动化客户的资格通过 M 脚本文件把 Microsoft Excel 用作自动
化服务器。本例演示调用自动化服务器的基本指令:Excel 缺省界面的开启;增添工作簿
(Workbook);改变激活的当前页(Worksheet);MATLAB 与 Excel 之间的数据传递;
Excel 的数据保存。
% exm12042_1.m
excel = actxserver('Excel.Application');
%
%
disp('为看清 Excel 界面及其变化,请把 MATLAB 界面调整得远小于屏幕!')
disp('按任意键,将可见到“Excel 界面”出现。')
pause
set(excel, 'Visible', 1);
disp('按任意键,可见到 Excel 界面出现第一张表激活的“空白工作簿”。')
pause
wkbs = excel.Workbooks;
Wbk = invoke(wkbs, 'Add');
disp('按任意键,当前激活表由第一张变为指定的第二张。')
pause
Sh = excel.ActiveWorkBook.Sheets;
sh2 = get(Sh, 'Item', 2);
invoke(sh2, 'Activate');
disp('按任意键,把 MATLAB 空间中的 A 矩阵送到 Excel 的指定位置。')
pause
Actsh = excel.Activesheet;
A = [1,2 ;3,4];
actshrng = get(Actsh,'Range','A1','B2');
set(actshrng, 'Value', A); %
disp('按任意键,获取 Excel 指定区域上的数据,')
disp('并以 MyExcel.xls 文件形式保存在 D:\mywork 目录上。')
pause
rg = get(Actsh, 'Range', 'A1', 'B2');
B = rg.value;
B = reshape([B{:}], size(B));
invoke(Wbk, 'SaveAs', 'D:\mywork\myfile.xls');
disp('按任意键,关闭 excel 句柄代表的 Excel。')
pause
21