用matlab重命名excel工作表，删除工作表

转自：http://hi.baidu.com/kyu16866/item/2683acdc9f05f8b132db9063

YZD=rand(4,4);
biaotou={'坐标','Xz','Yz','Zz'};%如果只是每个注释只是一个字符，可以不用cell数组。
%biaotou='XYZ';第一行的三列就只输入X,Y,X
xlswrite('C:\成果','XYH','sheet1','A1');
xlswrite('C:\成果',YZD,'sheet1','A2');

%设定测试Excel文件名和路径
 filespec_user='F:\成果.xls';%获得Excel文件名和路径
 
 %判断Excel是否已经打开，若已打开，就在打开的Excel中进行操作，
 %否则就打开Excel
 try
     Excel=actxGetRunningServer('Excel.Application');
catch
     Excel = actxserver('Excel.Application'); 
end;

%返回Excel工作簿句柄
 Workbooks = Excel.Workbooks;
 
%若测试文件存在，打开该测试文件，否则，新建一个工作簿，并保存，文件名为成果.xls
 if exist(filespec_user,'file'); 
    Workbook = invoke(Workbooks,'Open',filespec_user);
 else
     Workbook = invoke(Workbooks, 'Add'); 
    Workbook.SaveAs(filespec_user);
 end
 
%返回工作表句柄
 Sheets = Excel.ActiveWorkBook.Sheets; 
%返回工作簿中有多少工作表数
 Count = Excel.ActiveWorkbook.Sheets.Count;
 
%---------------------关键之处——删除与重命名--------------------------------------
Sheets.Item(3).Delete;%删除第3页的工作表
Sheets.Item(1).Name = 'test';%将排序为第1个工作表命名为test

Excel.ActiveWorkbook.Save; 
Excel.ActiveWorkbook.Close;
Excel.Quit;
Excel.delete;
 

例如：做的一个实例。

输出后的EXCEL打开后，下面一栏显示的是“已知点，在表的第一行的A1.B1.C1等写上X,Y,H.

YZD=rand(4,3);
xlswrite('C:\成果','XYH','sheet1','A1');
xlswrite('C:\成果',YZD,'sheet1','A2');
 filespec_user='C:\成果.xls';%获得Excel文件名和路径
try
     Excel=actxGetRunningServer('Excel.Application');
catch
     Excel = actxserver('Excel.Application'); 
end;
 Workbooks = Excel.Workbooks;%返回Excel工作簿句柄
 %若测试文件存在，打开该测试文件，否则，新建一个工作簿，并保存，文件名为测试.Excel
 if exist(filespec_user,'file'); 
    Workbook = invoke(Workbooks,'Open',filespec_user);
 else
     Workbook = invoke(Workbooks, 'Add'); 
    Workbook.SaveAs(filespec_user);
 end
  Sheets = Excel.ActiveWorkBook.Sheets; %返回工作表句柄
 Count = Excel.ActiveWorkbook.Sheets.Count;%返回工作簿中有多少工作表数
 %重命名，其他工作表类似修改
Sheets.Item(1).Name = '已知点';%将排序为第一个工作表名字命名为已知点,
Excel.ActiveWorkbook.Save;
Excel.ActiveWorkbook.Close;
Excel.Quit;
Excel.delete;