MATLAB读取每个文件夹下的badcsv文件后合并为总的badexcel文件

clear;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%读取子文件夹中bad.csv数据
%并把所有数据写到一个excel文件中
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%D:\筛选前\DLC384\P1646C%%%  
K=(inputdlg('please input File directory: ','File directory'));
%DIR = 'E:\qtpro\wafer_check\wafer_check_V2.0\DATA\';   %根文件夹
DIR = K{1};
list=dir(DIR);
number = 0;

for n=1:length(list)
   if(list(n).isdir)         %判断是否为子文件夹，是时做处理
      filepath = [DIR,'\',list(n).name,'\Bad.csv'];       
       if(exist(filepath, 'file'))         %判断是否存在Bad.csv文件
           number = number+1;
           Name{number,1}= list(n).name;
           data(number,:)= csvread(filepath, 1, 0);    %从第二行开始读取数据

       end
   end
end

file  = [DIR,'\bads.xls'];
if(exist(file, 'file'))   %如已存在文件，删除文件
    delete(file);
end

xlswrite(file,cellstr('Name'),'sheet1','A1:A1');
xlswrite(file,cellstr('BPTotal'),'sheet1','B1:B1');
xlswrite(file,cellstr('BPI'),'sheet1','C1:C1');
xlswrite(file,cellstr('BPRv'),'sheet1','D1:D1');
xlswrite(file,cellstr('BPV'),'sheet1','E1:E1');
xlswrite(file,cellstr('BP>2'),'sheet1','F1:F1');    %头，写入第一行
xlswrite(file,Name,'sheet1','A2');         %第一列文件名
xlswrite(file,data,'sheet1','B2');         %数据