actexcel.m

matlab7.0从入门到精通(光盘内容)

excel=actxserver('Excel.Application');%启动Excel并返回名为excel的Activex服务器对象
disp('为看清Excel界面及其变化，请把MATLAB界面调整的远小于屏幕！')
disp('按任意键，将可看到“Excel界面”出现。')
pause
set(excel,'Visible',1);   %使开启的Excel默认界面可见
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);               %把A矩阵送到Excel的指定区域
disp('按任意键，获取Excel指定区域内的数据，')      %第21行
disp('并以MyExcel.xls文件形式保存在D:\MATLAB7\work目录上。')
pause
rg=get(Actsh,'Range','A1','B2');      %得到Excel指定区域句柄
B=rg.value;                           %获取指定区域上的值
B=reshape([B{:}],size(B));
invoke(Wbk,'SaveAs','D:\MATLAB7\work\MyExcel.xls');%把Wbk工作簿保存在指定目录下
disp('按任意键，关闭excel句柄代表的Excel。')
pause
invoke(excel,'Quit');                 %关闭Excel