dbtoexcel_fcn.m

从数据库中读数据到excel中

function DBtoExcel_Fcn(yearNo)
params;
%基础数据库OrigDB
conn=database(ORIGDBNAME,'','');
sqlquery_1=['select * from ' int2str(1995+yearNo) ];
curs_1=exec(conn,sqlquery_1);
curs_1=fetch(curs_1);
A=curs_1.data;  [m,n]=size(A);  A=A(1:m,2:n);
if(iscell(A))
   An=A; 
else
    for i=1:m
        for j=2:n-1
            An{i,j}=[A(i,j)];
        end
    end  
    for i=1:m
    An{i,1}=City{1,i};
    end
end
B=OrigItem(yearNo,:);[m,n]=size(B);
B=[B(n),B(1:n-1)];
C=[B;An];
C=C';
[m,n]=size(C);

excel=actxserver('Excel.Application');
set(excel,'Visible',0);
wkbs=excel.Workbooks;
Wbk=invoke(wkbs,'Add');

Actsh=excel.Activesheet;
str='A';
str=str+n-1;
str=[str,int2str(m)];
actshrng=get(Actsh,'Range','A1',str);
set(actshrng,'Value',C);
path='D:\liu\project\database\Excel\';
path=[path,int2str(yearNo+1995),'Orig.xls'];
invoke(Wbk,'SaveAs',path);
invoke(excel,'Quit');
%统计数据库StatDB
conn=database(STATDBNAME,'','');
sqlquery_1=['select * from ' int2str(1995+yearNo),'_SCORE' ];
curs_1=exec(conn,sqlquery_1);
curs_1=fetch(curs_1);
A=curs_1.data;  [m,n]=size(A);  A=A(1:m,2:n-1);
if(iscell(A))
   An=A; 
else
    for i=1:m
        for j=2:n-2
            An{i,j}=[A(i,j)];
        end
    end  
    for i=1:m
    An{i,1}=City{1,i};
    end
end
B=StatItem(yearNo,:);[m,n]=size(B);
B=[B(n),B(1:n-1)];
C=[B;An];
C=C';
[m,n]=size(C);

excel=actxserver('Excel.Application');
set(excel,'Visible',0);
wkbs=excel.Workbooks;
Wbk=invoke(wkbs,'Add');

Actsh=excel.Activesheet;
str='A';
str=str+n-1;
str=[str,int2str(m)];
actshrng=get(Actsh,'Range','A1',str);
set(actshrng,'Value',C);
path='D:\liu\project\database\Excel\';
path=[path,int2str(yearNo+1995),'Stat.xls'];
invoke(Wbk,'SaveAs',path);
invoke(excel,'Quit');
close(conn)