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