example12_2.m

来自「MATLAB混合编程想把matlab强大的功能用在自己的工程实践中吗这是本不错的」· M 代码 · 共 31 行

% 首先，打开一个Excel服务器
h=actxserver('Excel.application');

% 插入一个新的工作薄
eWorkbooks=get(h, 'Workbooks');
eWorkbook=Add(eWorkbooks);
set(h, 'Visible',1);

% 激活第2个表
eActiveWorkbook=get(h, 'ActiveWorkbook');
eSheets=get(eActiveWorkbook, 'Sheets');
eSheet2=Item(eSheets, 2);
Activate(eSheet2);

% 获取表的句柄
eActiveSheet=get(h,'ActiveSheet');
% 把MATLAB数组导入Excel
A=[1 2; 3 4];
eActiveSheetRange = Range(eActiveSheet, 'A1', 'B2');
set(eActiveSheetRange, 'Value', A);

% 返回一个范围。它是一个单元数组，因为单元范围可以包含不同类型的数据
eRange=Range(eActiveSheet, 'A1', 'B2');
B=get(eRange, 'Value');

% 转换为double矩阵，单元数组必须只包含标量
B=reshape([B{:}], size(B));

% 保存工作薄
SaveAs(eWorkbook, 'myfile.xls');