matlab向excel写入数据类型,Matlab向带有格式的excel文件中写入数据

% 说明,以下程序用于批量形成学生成绩单(excel格式)

% 事先备好了带有特定格式的空白成绩单,

% 空白成绩单预留40名学生的位置(分左右两栏)

% 若班级学生过多,需要在相应班级的空白表处插入新行

% 需要填写班级代号,班级成绩统计结果(各分数段的频数)

% 以及学生的学号,姓名,成绩(包括平时成绩,期末成绩和总评成绩)

% 统计工作已经完成

% 班级代码存于行向量bj

% 班级人数存于行向量bjn

% 全体学生的姓名存于cell 数组 xm

% 全体学生的学号存于向量xh 其中前8位为班级代码,成绩单中填写后两位

% 全体学生的成绩存于3行的矩阵sco (1,2,3行分别为平时成绩,期末成绩和总评成绩)

% 部分学生缺考,成绩用负数表示,填写成绩单时对该生仅在总评成绩一栏填写缺考字样

load linear_algebra2008 %调入存储于文件中的成绩数据

rows = 31+0*bj ; %确定各班成绩单占用的行数,基准为31行,班级人数大于40者每增加2人行数增加一行

idx = find(bjn>40) ;

rows(idx) = 31+ceil((bjn(idx)-40)/2);

firstrow = [1,cumsum(rows(1:end-1))+1]; %确定各班成绩单的起始行号

n_left = min(bjn,20) ; %确定左半侧成绩单学生数

n_right = max(0,bjn-20) ; %确定右半侧成绩单学生数

n_left(idx) = 20+ceil((bjn(idx)-40)/2); %左半侧学生数微调

n_right(idx) = bjn(idx)-n_left(idx) ;%右半侧学生数微调

firstcol = cumsum([1,bjn(1:end-1)]) ; %确定各班首个学生的成绩所在列

disp('请增加以下班级成绩单的行数') ;

fprintf('序号 %d   新增行数  %d \n',[idx ; rows(idx)-31]) ;

pause ; %暂停运行,等待修改成绩单行数完成

for i = 1 : length(bj)

fprintf('正在写入第%4d 个班级(%8d)的成绩单...\n',i,bj(i)) ;

%写入班级代码

%写入的位置需要计算,直接使用xlswrite很困难

%因此把命令写成一个字符串,用eval执行,这是解决问题的关键

str = ['s=xlswrite(',char(39),'f:\学生成绩\scorelistrand.xls',char(39),',bj(i),',...

char(39),'sheet1',char(39),',',char(39),'l',num2str(firstrow(i)+4),char(39),');'];

eval(str) ;

%写入分段成绩统计

stat = resbj(i,[8:12,2,3])' ;

str = ['s=xlswrite(',char(39),'f:\学生成绩\scorelistrand.xls',char(39),...

',stat,',char(39),'sheet1',char(39),',',char(39),'m',...

num2str(firstrow(i)+8),':m',num2str(firstrow(i)+14),char(39),');'];

eval(str) ;

%形成班级成绩单主体  由于该项操作很费时,因此尽可能把数据组织为cell array 的形式集中写入

%这是提高效率的主要技巧

clear scolist ;

scolist{rows(i)-11,10} = [] ;

for j = 1 : n_left(i)

xhh = num2str(xh(firstcol(i)+j-1)) ;

scolist{j,1} = xhh(9:10) ;

scolist{j,2} = xm{firstcol(i)+j-1} ;

scolist{j,3} = sco(1,firstcol(i)+j-1) ;

scolist{j,4} = sco(2,firstcol(i)+j-1) ;

scolist{j,5} = sco(3,firstcol(i)+j-1) ;

if scolist{j,5}<0

scolist{j,3}=''; scolist{j,4} = ''; scolist{j,5}='缺考' ;

end

end

if n_right(i)>0

for j = 1 : n_right(i)

xhh = num2str(xh(firstcol(i)+n_left(i)+j-1)) ;

scolist{j,6} = xhh(9:10) ;

scolist{j,7} = xm{firstcol(i)+n_left(i)+j-1} ;

scolist{j,8} = sco(1,firstcol(i)+n_left(i)+j-1) ;

scolist{j,9} = sco(2,firstcol(i)+n_left(i)+j-1) ;

scolist{j,10} = sco(3,firstcol(i)+n_left(i)+j-1) ;

if scolist{j,10}<0

scolist{j,8}=''; scolist{j,9} = ''; scolist{j,10}='缺考' ;

end

end

end

%写入班级成绩单主体

str = ['s=xlswrite(',char(39),'f:\学生成绩\scorelistrand.xls',char(39),...

',scolist,',char(39),'sheet1',char(39),...

',',char(39),'b', num2str(firstrow(i)+8),':k',...

num2str(firstrow(i)+rows(i)-4),char(39),');'];

eval(str) ;

end