matlab和Excel的数据交互操作(非xlsread和xlswrite)

clear all
% 添加Excel函数
try
    Excel=actxGetRunningServer('Excel.Application');
catch 
Excel=actxserver('Excel.application');
end
% 设置Excel可见
Excel.visible=1;

% 新建文件
Workbook=Excel.Workbooks.Add ; % 默认为 工作簿1
% WORK=Excel.Workbooks.Add    % 此时为 工作簿2
% 或者
% Workbook=invoke(Excel.Workbooks,'Add')

% 添加新的sheet
ExcelActiveWorkbooks=get(Excel,'ActiveWorkBook'); % 获得当前的工作簿
eSheet=get(ExcelActiveWorkbooks,'Sheets'); % 为当前的sheet
% 或者
% eSheet=Excel.ActiveWorkBook.Sheets
eSheet.Add;

% 获得sheet的handle
eSheet1 = Item(eSheet,1);
eSheet2 = Item(eSheet,2);
% 修改sheet名称
eSheet.Item(1).Name = '第一个';
eSheet.Item(2).Name = '第二个';
% 或者
eSheet1.name = 'Item(eSheet,1)';
eSheet2.name = 'Item(eSheet,2)';

% % 激活eSheet1
% eSheet1.Activate;
% 或者
% Activate(eSheet1);

% % 打开已有文件
% Workbook=invoke(Excel.Workbooks,'open','C:\Users\Halo\Desktop\data.xls');
% Workbook= Excel.Workbooks.Open(path)
% 保存文件
% invoke(Workbook,'save'); % 默认路径为 文档
Workbook.SaveAs('C:\Users\Halo\Desktop\data.xlsx');
Excel.Quit; % 关闭 Excel
Excel.delete; % 删除对象

% % 激活eSheet1
% eSheet1.Activate;
% 或者
% Activate(eSheet1);

% % 打开已有文件
% Workbook=invoke(Excel.Workbooks,'open','C:\Users\Halo\Desktop\data.xls');
% Workbook= Excel.Workbooks.Open(path)
% 保存文件
% invoke(Workbook,'save'); % 默认路径为 文档
Workbook.SaveAs('C:\Users\Halo\Desktop\data.xlsx');
Excel.Quit; % 关闭 Excel
Excel.delete; % 删除对象