【中国移动实习打杂项目】用matlab 将多个excel合并为一个

clear
close all
cd K:\数通设备端口流量-
filenames =dir();%读入所有文件夹的名字，前两个不作数
% filenames(1:101,:)=filenames(3:103,:)
file_length= size(filenames,1);
sum=0;%所有excel中总行数
for i=3:file_length%读每个文件夹
    file_name=filenames(i).name;%单个文件夹的名字
    path=strcat('K:\数通设备端口流量-','\',file_name);%待处理的单个文件夹的路径
    excel_list = dir(path);%该文件夹下 所有excel的名字
    excel_num=size(excel_list,1);%统计该文件夹下 所有excel的个数,前两个是作废的
    file_name=cellstr(file_name);
    for j=3:excel_num%读该文件夹下的每个excel
        excel_name=excel_list(j).name;
        excel_path=strcat(path,'\',excel_name);%待处理的单个excel的路径
        excel_name=cellstr(excel_name);
        [excel,text]=xlsread(excel_path);%text是文本，excel是数字
        excel=num2cell(excel);
        text(3:size(text,1),2:3)=excel;%合并
        excel_num=size(text,1);%统计该excel中的行数
        str_a=strcat('A',num2str(sum+1),':C',num2str(sum+excel_num));%xlwrite函数的参数
        xlswrite('结果.xlsx',text,1,str_a);
        str_b=strcat('D',num2str(sum+1),':D',num2str(sum+excel_num));
        xlswrite('结果.xlsx',excel_name,1,str_b);%在str_b位置写入单个excel的名字
        str_c=strcat('E',num2str(sum+1),':E',num2str(sum+excel_num));
        xlswrite('结果.xlsx',file_name,1,str_c);
        sum=sum+excel_num;%更新sum
    end
end