exm120421_1.m

来自「北航张志涌的“精通MATLAB6.5”的配套光盘。包含电子书和书中的范例程序等」· M 代码 · 共 35 行

% exm120421_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);		%						<23>
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
invoke(excel, 'Quit');			%