利用MATLAB生成Excel文档

Demyar

利用MATLAB生成Excel文档

5 [/ ?9 r( c+ j; `+ n
unction ceshi_Excel
%利用MATLAB生成Excel文档
9 |: V1 @$ k* j9 [%   ceshi_Excel
$ ?3 Z: }8 j0 s$ K7 q4 p! L%
& g- X( e! m+ M. f# C( Y, k%   Copyright 2009 - 2010 xiezhh.
, ^; ]: a8 o) |8 t% r) D%   $Revision: 1.0.0.0 $  $Date: 2009/12/14 20:40:00 $
% I: l2 ^; X& _
% 设定测试Excel文件名和路径
0 C% R2 v. z5 }% Z' \$ ~filespec_user = [pwd '\测试.xls'];
1 R; S) g. M# e. z1 u& V4 P; J
% 判断Excel是否已经打开，若已打开，就在打开的Excel中进行操作，否则就打开Excel
try
4 {4 P8 _2 x" a8 J    % 若Excel服务器已经打开，返回其句柄Excel
    Excel = actxGetRunningServer('Excel.Application');
' t/ f& \# B+ N% H# o- ~" e$ ucatch
: Q) V3 g" B6 }( z4 u% N    % 创建一个Microsoft Excel服务器，返回句柄Excel
    Excel = actxserver('Excel.Application');
end;

% 设置Excel服务器为可见状态
Excel.Visible = 1;    % set(Excel, 'Visible', 1);
. D$ g) b  @  i
- P) }! y/ g7 z4 N9 w  z% z% 若测试文件存在，打开该测试文件，否则，新建一个工作簿，并保存，文件名为测试.Excel
if exist(filespec_user,'file');
    Workbook = Excel.Workbooks.Open(filespec_user);
+ U, T$ v0 |% J/ r    % Workbook = invoke(Excel.Workbooks,'Open',filespec_user);
2 x/ @6 P$ d: ~7 M9 Z# M) r! jelse
4 S3 K9 F; r6 G! A$ x, T2 r8 M    Workbook = Excel.Workbooks.Add;
3 V4 R! D$ g6 s; i    % Workbook = invoke(Excel.Workbooks, 'Add');
* O: _8 ^1 K8 E, Y    Workbook.SaveAs(filespec_user);
end

# t" ~- o. J& t+ P/ h% 返回当前工作表句柄
/ c7 X0 W, _- l8 ^Sheets = Excel.ActiveWorkbook.Sheets;    % Sheets = Workbook.Sheets;
Sheet1 = Sheets.Item(1);    % 返回第1个表格句柄
Sheet1.Activate;    % 激活第1个表格

% 页面设置
; e8 M# o  G$ q" ^Sheet1.PageSetup.TopMargin = 60;       % 上边距60磅
Sheet1.PageSetup.BottomMargin = 45;    % 下边距45磅
1 @. h7 t8 {' G) [5 Y3 WSheet1.PageSetup.LeftMargin = 45;      % 左边距45磅
; b( E3 m/ @  p4 }Sheet1.PageSetup.RightMargin = 45;     % 右边距45磅

% 设置行高和列宽
2 T$ O& i5 X9 `8 Z" G" v% 定义行高向量RowHeight
RowHeight = [26,22,15,29,37,29,29,25,25,36,280,31,40,29,15,24]';
. a& m, M+ q0 p* M4 |1 s% 设置Range对象（从A1到A16）的行高
* R  h8 x2 z  F, zSheet1.Range('A1:A16').RowHeight = RowHeight;
% 设置Range对象（从A1到H1）的列宽
# y8 s6 E  N. S8 e2 u( e: m" eSheet1.Range('A1:H1').ColumnWidth = [9,15,9,9,9,9,9,9];

& i: [3 I8 P5 c/ t! F' M% 合并单元格
Sheet1.Range('A1:H1').MergeCells = 1;
Sheet1.Range('A2:H2').MergeCells = 1;
0 h- n6 |  U2 f" m7 u5 P7 G+ @% qSheet1.Range('A8:A9').MergeCells = 1;
Sheet1.Range('B8:H8').MergeCells = 1;
Sheet1.Range('E8:H8').MergeCells = 1;
+ Q% k2 Q* q4 ?) B: m3 y5 N" R/ ASheet1.Range('B9:H9').MergeCells = 1;
4 f% [0 i6 {6 M( [/ R0 z! Q6 ^Sheet1.Range('E9:H9').MergeCells = 1;
Sheet1.Range('A10:H10').MergeCells = 1;
Sheet1.Range('A11:H11').MergeCells = 1;
- x. `4 ^" y' N$ a& oSheet1.Range('A12:H12').MergeCells = 1;
2 V$ I( U, ]. a( e% U  bSheet1.Range('A13:H13').MergeCells = 1;
5 H4 E. H9 K6 t/ l2 ?! x( c' J* |Sheet1.Range('A14:H14').MergeCells = 1;
6 @0 _, ^" k6 h+ Z/ i1 h8 L+ i8 iSheet1.Range('D16:H16').MergeCells = 1;

% G$ h: f& u) m3 S5 G% 设置单元格的边框
0 z2 y# z  w, G) R* k7 OSheet1.Range('A4:H14').Borders.Weight = 3;
Sheet1.Range('A10:H12').Borders.Item(3).Linestyle = 0;
Sheet1.Range('A10:H12').Borders.Item(4).Linestyle = 0;
* r: R6 |7 e2 P4 e3 E" E. GSheet1.Range('A13:H13').Borders.Item(4).Linestyle = 0;
Sheet1.Range('A14:H14').Borders.Item(3).Linestyle = 0;

% 设置单元格对齐方式
Sheet1.Range('A1:H9').HorizontalAlignment = 3;
2 ^* b) ]% C6 g% z5 eSheet1.Range('A4:A9').HorizontalAlignment = 6;
' w& M! |& m$ v, `* z- J: F  P( M& lSheet1.Range('C4:C7').HorizontalAlignment = 6;
Sheet1.Range('E4:E7').HorizontalAlignment = 6;
8 ^! E9 d% x# f$ h( ~0 ]Sheet1.Range('G4:G7').HorizontalAlignment = 6;
/ O& l: p$ v' r3 d$ l* `5 x1 NSheet1.Range('A10:H10').HorizontalAlignment = 6;
Sheet1.Range('A11:H11').HorizontalAlignment = 6;    % -4130
2 |. x+ C. g  `) X( [% OSheet1.Range('A11:H11').VerticalAlignment = 1;
Sheet1.Range('A12:H12').HorizontalAlignment = 4;
Sheet1.Range('A13:H13').VerticalAlignment = 1;
$ j6 Y% X# s$ r( a9 YSheet1.Range('A14:H14').HorizontalAlignment = 4;
8 z7 ~9 R$ {6 _( z  A0 [Sheet1.Range('D16:H16').HorizontalAlignment = 4;

% 写入单元格内容
Sheet1.Range('A1').Value = '试  卷  分  析';
7 [8 ^2 i" K: \% Q/ K! WSheet1.Range('A2').Value = '（ 2009  —  2010   学年 第一学期）';
9 y; p& S* Z  S6 E, ]. `( g1 XSheet1.Range('A4:H4').Value = {'课程名称','','课程号',...
    '','任课教师学院','','任课教师',''};
3 a- v' w: N# X& z* r; }8 M. TSheet1.Range('A5:H5').Value = {'授课班级','','考试日期',...
* @9 C" W5 L" U4 y: ?( H  G, j: N    '','应考人数','','实考人数',''};
Sheet1.Range('A6:H6').Value = {'出卷方式','','阅卷方式',...
    '','选用试卷A/B','','考试时间',''};
Sheet1.Range('A7:H7').Value = {'考试方式','','平均分',...
    '','不及格人数','','及格率',''};
Sheet1.Range('A8').Value = '成绩分布';
Sheet1.Range('B8').Value = '90分以上       人占        %';
* g- Z2 U6 ?: f/ |* OSheet1.Range('E8').Value = '80---89分        人占        %';
6 M/ o( Q4 q& C+ i8 S$ RSheet1.Range('B9').Value = '70---79分      人占        %';
& [5 `) U  b3 \7 N; C: T1 \) }Sheet1.Range('E9').Value = '60---69分        人占        %';
Sheet1.Range('A10').Value = ['试卷分析（含是否符合教学大纲、难度、知识覆'...
    '盖面、班级分数分布分析、学生答题存在的共性问题与知识掌握情况、教学中'...
6 W" P/ M, j( k& g7 c. c9 {    '存在的问题及改进措施等内容）'];
; @. }" J1 P8 J) \, DSheet1.Range('A12').Value = '签字 :                      年     月     日';
3 ]' u5 M7 M% j. ]# V+ L7 ]Sheet1.Range('A13').Value = '教研室审阅意见：';
! u2 L- l; c7 D, p9 ?% S% wSheet1.Range('A14').Value = '教研室主任（签字）:             年    月    日';
- D3 P# T- s* PSheet1.Range('D16').Value = '主管院长签字：                  年    月    日';
. v& S; X9 N3 @
2 P% k0 K" y9 o) T6 ]% 设置字号
Sheet1.Range('A4:H12').Font.size = 10.5;    % 设置单元格A4至H12的字号为10.5
9 c. w8 a1 E% cSheet1.Range('A1').Font.size = 16;          % 设置单元格A1的字号为16
Sheet1.Range('A1').Font.bold = 2;           % 单元格A1的字体加粗
7 q# Y% f) ?3 W! z5 c
% 插入图片，如果当前工作表中有图形存在，通过循环将图形全部删除
/ f7 N& B6 I' |( P( ]. eShapes = Sheet1.Shapes;    % 返回第1个工作表的Shapes接口的句柄
5 r( c' X' s- D5 `. P! mif Shapes.Count ~= 0;
* z& f6 ^# C/ z0 `# F8 {    for i = 1 : Shapes.Count;
1 r1 z: W( f9 w; O/ P- j        Shapes.Item(1).Delete;    % 删除第1个Shape对象
( ~( Y1 j$ K2 I, Z& \    end;
- @9 C- r+ O  f0 Cend;
; S+ P% x0 W5 V) K) O$ e0 R, }% |
5 g5 ]: K6 e# h: k, C- E% 产生均值为75，标准差为4的正态分布随机数，画直方图，并设置图形属性
) e5 T  {; K% b& e+ e' l3 \zft = figure('units','normalized','position',...
4 q+ u, p9 `  f[0.280469 0.553385 0.428906 0.251302],'visible','off');  % 新建图形窗口，设为不可见
7 l4 O& {" Y9 h4 X$ c- _5 S  O2 U! e; Hset(gca,'position',[0.1 0.2 0.85 0.75]);    % 设置坐标系的位置和大小
* Z$ Z$ C# `6 T3 R+ A% ?2 }data = normrnd(75,4,1000,1);    % 产生均值为75，标准差为4的正态分布随机数
hist(data);    % 绘制正态分布随机数的频数直方图
grid on;       % 添加参考网格
xlabel('考试成绩');    % 为X轴加标签
, O8 Z/ f* m! z& Y1 Kylabel('人数');       % 为Y轴加标签
hgexport(zft, '-clipboard');    % 将直方图复制到剪贴板
4 V* G7 W+ |8 k. P8 W9 P% 选中工作表Sheet1的A11单元格，插入由MATLAB命令作出的直方图
/ h% e6 y" ]0 r, V( DSheet1.Range('A11').Select;
Sheet1.Paste    % Sheet1.PasteSpecial;

  k# A! l! [9 T$ m/ i3 Q$ f6 w: Odelete(zft);    % 删除图形句柄
Workbook.Save   % 保存文档

panphp

看看楼主分享的代码。

vrunst

学习了 谢谢

vrunst

谢谢！！！！！！
. z  ^0 Z( G3 q+ W/ ^