如何用MATLAB编写脚本对比两个Excel图表并识别差异？

核心思路 #

Excel图表的变化本质是数据源变更或图表属性配置变更，所以对比要从这两方面入手：

• 提取两张图表的数据源，做单元格级差异对比
• 读取图表的关键属性（类型、标题、坐标轴等），对比配置差异

具体实现步骤 #

1. 用MATLAB COM接口提取Excel图表信息 #

MATLAB直接读取Excel文件无法获取图表的详细属性，必须通过actxserver调用Excel COM对象来获取图表的数据源和配置。

示例函数：读取单个Excel文件的指定图表信息

function [chartData, chartProps] = getExcelChartInfo(excelPath, sheetIdx, chartIdx)
    % 启动Excel COM服务器
    excel = actxserver('Excel.Application');
    excel.Visible = false; % 后台运行，不显示Excel窗口
    
    try
        workbook = excel.Workbooks.Open(excelPath);
        sheet = workbook.Sheets.Item(sheetIdx);
        chartObj = sheet.ChartObjects.Item(chartIdx).Chart;
        
        % 提取图表数据源（单系列示例，多系列需循环处理SeriesCollection）
        dataRange = chartObj.SeriesCollection(1).Values;
        chartData = cell2mat(dataRange); % 转换为MATLAB矩阵
        
        % 提取关键图表属性
        chartProps.Type = chartObj.ChartType;
        chartProps.Title = char(chartObj.ChartTitle.Text);
        chartProps.XAxisMin = chartObj.Axes(1).MinimumScale;
        chartProps.XAxisMax = chartObj.Axes(1).MaximumScale;
        chartProps.YAxisMin = chartObj.Axes(2).MinimumScale;
        chartProps.YAxisMax = chartObj.Axes(2).MaximumScale;
        chartProps.HasLegend = chartObj.HasLegend;
        
    catch ME
        error('读取Excel图表失败: %s', ME.message);
    end
    
    % 关闭资源，避免残留Excel进程
    workbook.Close(false);
    excel.Quit;
    excel.delete;
end

2. 对比数据源和图表属性 #

数据源对比

逐元素对比两个图表的数据源矩阵，记录差异位置和数值：

function dataDiff = compareChartData(data1, data2)
    dataDiff = struct();
    if ~isequal(size(data1), size(data2))
        dataDiff.SizeMismatch = true;
        dataDiff.Message = '数据源尺寸不一致';
        return;
    end
    
    dataDiff.SizeMismatch = false;
    [diffRows, diffCols] = find(data1 ~= data2);
    dataDiff.DiffPositions = [diffRows, diffCols];
    dataDiff.OldValues = data1(sub2ind(size(data1), diffRows, diffCols));
    dataDiff.NewValues = data2(sub2ind(size(data2), diffRows, diffCols));
end

属性对比

逐一比对关键属性，生成差异列表：

function propDiff = compareChartProps(props1, props2)
    propDiff = struct();
    diffFields = fieldnames(props1);
    propDiff.Differences = {};
    
    for i = 1:length(diffFields)
        field = diffFields{i};
        if ~isequal(props1.(field), props2.(field))
            propDiff.Differences{end+1} = ...
                sprintf('%s: 旧值=%s，新值=%s', ...
                field, num2str(props1.(field)), num2str(props2.(field)));
        end
    end
    
    if isempty(propDiff.Differences)
        propDiff.Differences = {'无属性差异'};
    end
end

3. 展示差异结果 #

把数据差异和属性差异打印输出，可选绘制对比图：

% 主脚本示例
excelFile1 = 'old_chart.xlsx';
excelFile2 = 'new_chart.xlsx';
sheetIdx = 1; % 图表所在工作表索引
chartIdx = 1; % 要对比的图表索引

% 读取两个图表的信息
[data1, props1] = getExcelChartInfo(excelFile1, sheetIdx, chartIdx);
[data2, props2] = getExcelChartInfo(excelFile2, sheetIdx, chartIdx);

% 对比数据源
dataDiff = compareChartData(data1, data2);
disp('=== 数据源差异 ===');
if dataDiff.SizeMismatch
    disp(dataDiff.Message);
else
    if isempty(dataDiff.DiffPositions)
        disp('无数据源差异');
    else
        disp('差异位置(行,列) | 旧值 | 新值');
        for i = 1:size(dataDiff.DiffPositions,1)
            fprintf('(%d,%d) | %.2f | %.2f\n', ...
                dataDiff.DiffPositions(i,1), dataDiff.DiffPositions(i,2), ...
                dataDiff.OldValues(i), dataDiff.NewValues(i));
        end
    end
end

% 对比属性
propDiff = compareChartProps(props1, props2);
disp('\n=== 图表属性差异 ===');
for i = 1:length(propDiff.Differences)
    disp(propDiff.Differences{i});
end

% 可选：绘制数据源对比图
figure;
subplot(1,2,1);
bar(data1); title('旧图表数据源');
subplot(1,2,2);
bar(data2); title('新图表数据源');

注意事项 #

• 多系列图表需修改getExcelChartInfo函数，循环处理SeriesCollection中的每个系列
• 确保Excel文件路径为绝对路径，避免找不到文件
• 若文件有密码保护，需在workbook.Open中添加密码参数
• 脚本运行后检查任务管理器，确保Excel进程已关闭（残留可手动结束）

内容的提问来源于stack exchange，提问作者Nightshade