% exm120421_1.m
excel = actxserver('Excel.Application');
									%
									%
disp('為看清Excel界面及其變化，請(qǐng)把MATLAB界面調(diào)整得遠(yuǎn)小于屏幕！')
disp('按任意鍵，將可見(jiàn)到“Excel界面”出現(xiàn)。')
pause
set(excel, 'Visible', 1);			%
disp('按任意鍵，可見(jiàn)到Excel界面出現(xiàn)第一張表激活的“空白工作簿”。')
pause
wkbs = excel.Workbooks;		%
Wbk = invoke(wkbs, 'Add');	%
disp('按任意鍵，當(dāng)前激活表由第一張變?yōu)橹付ǖ牡诙垺?#039;)
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指定區(qū)域上的數(shù)據(jù)，')
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('按任意鍵，關(guān)閉excel句柄代表的 Excel。')
pause
invoke(excel, 'Quit');			%