MATLAB数据自动导入Origin

功能：

1. 使用Matlab将多个.txt文本中数据直接导入origin模板中。

优势：

1. 适用于大量数据导入；
2. 不连续需要多次复制粘贴才能导入origin的数据；

代码：
注：
代码中Origion为手误写错，但不影响使用
此处仅为了说明操作步骤，代码进行简化（可实现更复杂功能）

%% 清理工作区域变量及命令行
clc;
clear;

%%  Origin模板的绝对路径，切记别写错，否则会卡死！！！
Path_Origin = strcat('G:\Laboratory\Experiment_Data\Data.opju');

%% 被导入.txt文本所在文件夹路径
Path_Flie = strcat('G:\Laboratory\Experiment_Data');

%% 文件夹内需要导入文件的名字
Name_Flie1 = strcat('Data_1','.txt');
Name_Flie2 = strcat('Data_2','.txt');
Name_Flie3 = strcat('Data_3','.txt');

%% 读取.txt文本中数据并整理
Data_1= importdata(strcat(Path_Data,Name_Flie1));
Data_2= importdata(strcat(Path_Data,Name_Flie2));
Data_3= importdata(strcat(Path_Data,Name_Flie3));

% 将Data_1.txt中第二列数据放入Data_origion中第一列
% 将Data_2.txt中第二列数据放入Data_origion中第二列
% 将Data_3.txt中第二列数据放入Data_origion中第三列    
Data_origion(:,1) = Data_1(:,2);
Data_origion(:,2) = Data_2(:,2);
Data_origion(:,3) = Data_3(:,2);

%%  通过COM接口调用Origin，并可视化操作
originObj = actxserver('Origin.ApplicationSI');                                    
invoke(originObj, 'Execute', 'doc -mc 1;');                                           
invoke(originObj, 'IsModified', 'false');
                                                 
%% 打开Origion 模板
invoke(originObj, 'Load', Path_Origion);

%% 将数据写入Origion中[Book1]Data，
invoke(originObj, 'PutWorksheet', '[Book1]Data', Data_origion);

%% 释放Origion ,否则Origion无法关闭
release(originObj);