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
【中国移动实习打杂项目】用matlab 将多个excel合并为一个
最新推荐文章于 2023-06-21 15:10:06 发布