Matlab 操作 Excel 复制 Sheet、添加单元格批注

以前只知道 Matlab 可以写 Excel，但是一直没有涉及到复制 Sheet、添加单元格批注这些功能代码。

后来查资料发现，Matlab 自身是没有这一块功能的，但是可以调用 COM 服务器，通过它去实现更丰富的 Excel 操作。下面简单演示一下如何实现。

场景假设

假设现在有这么一个场景，我手上有一个 5×5 的单位矩阵，希望对该数据做如下操作：

  1. 把他写入到 Excel 中的 Sheet1 上
  2. 复制一份到 Sheet2 上，并将 Sheet2 重命名为 “CopyFromSheet1”
  3. 在 Sheet2 上将对角元素的单元格全部添加批注 “这是对角元素”

COM 服务器

COM 服务器。可以简单理解一个封装好了的能够调用 Excel 操作的接口。介绍一些即将用到的功能：

开启 Excel 的 COM 服务器：

e = actxserver('Excel.Application');

打开一份Excel表，也称工作簿(Workbook)。

ewb = e.Workbooks.Open(excel_name);

⚠注意

excel_name 必须为绝对路径！！！！

选择一个Sheet：

% 方法1
sheet1 = ewb.Worksheets.Item(1);
% 方法2
sheet1 = ewb.Worksheets.Item('Sheet1');

Sheet重命名：

ewb.Worksheets.Item(1).Name = 'Sheet1';

复制Sheet到其后：

sheet1.Copy(sheet1);

选择单元格：

temp_cell = sheet2.Range(cell_name);

单元格批注清除与添加：

temp_cell.ClearComments(); % 清空批注
temp_cell.AddComment('这是对角元素'); % 添加批注

代码实现

clear;close all;clc;

%% 数据写入 excel
data = eye(5,5);
fullpath = pwd; % 当前文件路径
excel_name = [fullpath,'\','data.xls'];
xlswrite(excel_name, data, 'Sheet1');

%% 激活 actxserver
try 
    e = actxGetRunningServer('Excel.Application'); % 检查当前是否开启了excel服务器
catch
    e = actxserver('Excel.Application');    % 未检测到则手动开启excel服务器
end


%% 对 excel 进行操作
ewb = e.Workbooks.Open(excel_name);

% 复制一份sheet1,并重命名
sheet1 = ewb.Worksheets.Item(1); % 选择sheet1
% sheet1 = ewb.Worksheets.Item('Sheet1'); % 选择sheet1
sheet1.Copy(sheet1); % sheet1后面复制一份sheet2
ewb.Worksheets.Item(2).Name = 'CopyFromSheet1';
ewb.Worksheets.Item(1).Name = 'Sheet1';

% sheet2中对角元素单元格添加批注“对角元素” 
sheet2 = ewb.Worksheets.Item(2);
for i = 1:5
   cell_name = sprintf('%s%d',char(64+i),i);
   temp_cell = sheet2.Range(cell_name); % 定位单元格
   temp_cell.ClearComments(); % 清空批注
   temp_cell.AddComment('这是对角元素'); % 添加批注
end

ewb.Save; % 保存工作簿
ewb.Close(false); % 关闭工作簿
e.Quit; % 退出工作簿
e.delete; % 删除对象

测试与验证

image

image

参考资料

posted @ 2022-06-19 19:54  GShang  阅读(1657)  评论(0)  编辑  收藏  举报