利用MATLAB生成Excel文档

Demyar

利用MATLAB生成Excel文档
4 _6 G$ b, G6 z6 C! \
/ Q' l  p& w. f4 w4 Q
unction ceshi_Excel
3 P' c3 }0 a; }& l%利用MATLAB生成Excel文档
# t$ y# \4 p8 |: l% t2 `%   ceshi_Excel
%
%   Copyright 2009 - 2010 xiezhh.
%   $Revision: 1.0.0.0 $  $Date: 2009/12/14 20:40:00 $

$ Q5 t6 g+ s: n% 设定测试Excel文件名和路径
% u, t  z" x: O2 Sfilespec_user = [pwd '\测试.xls'];
% |  ?4 n5 m0 @
5 k5 A( e+ g( o4 `5 t% 判断Excel是否已经打开，若已打开，就在打开的Excel中进行操作，否则就打开Excel
try
    % 若Excel服务器已经打开，返回其句柄Excel
$ r0 L2 n. Y0 D' c7 `) g7 Y/ e/ [    Excel = actxGetRunningServer('Excel.Application');
( |8 d' F( i: |5 @0 p: tcatch
5 I" {. s  N) l/ Z+ R    % 创建一个Microsoft Excel服务器，返回句柄Excel
    Excel = actxserver('Excel.Application');
6 d; S  w" B& l5 qend;

% c- V  Y9 G/ p) {( w2 J% 设置Excel服务器为可见状态
0 R% l- x0 p- o& `6 vExcel.Visible = 1;    % set(Excel, 'Visible', 1);
" Z! ]- [/ f! X; M3 e1 s
% 若测试文件存在，打开该测试文件，否则，新建一个工作簿，并保存，文件名为测试.Excel
8 y: o- T* D1 w1 a1 {if exist(filespec_user,'file');
    Workbook = Excel.Workbooks.Open(filespec_user);
    % Workbook = invoke(Excel.Workbooks,'Open',filespec_user);
else
    Workbook = Excel.Workbooks.Add;
    % Workbook = invoke(Excel.Workbooks, 'Add');
    Workbook.SaveAs(filespec_user);
end
% d' [. z" c* B2 H! l' a
% 返回当前工作表句柄
Sheets = Excel.ActiveWorkbook.Sheets;    % Sheets = Workbook.Sheets;
Sheet1 = Sheets.Item(1);    % 返回第1个表格句柄
Sheet1.Activate;    % 激活第1个表格
$ Z# v) n: N1 P; ~' s1 S/ m) W
: d  R: r: o3 x- R1 r1 W6 n9 k% 页面设置
0 @  D3 e( B2 s9 h8 LSheet1.PageSetup.TopMargin = 60;       % 上边距60磅
6 r* t6 H. g% Z) i1 s/ ZSheet1.PageSetup.BottomMargin = 45;    % 下边距45磅
( r7 I" }/ o7 j* e3 d' Y, kSheet1.PageSetup.LeftMargin = 45;      % 左边距45磅
Sheet1.PageSetup.RightMargin = 45;     % 右边距45磅

. _" U# R8 n' p0 y4 p6 W3 Q' s% 设置行高和列宽
% 定义行高向量RowHeight
! }3 [. K4 K9 M# D% GRowHeight = [26,22,15,29,37,29,29,25,25,36,280,31,40,29,15,24]';
1 I& f5 a% z" S  X0 d' x' n% O% 设置Range对象（从A1到A16）的行高
+ ?) _2 I$ i3 G- h$ BSheet1.Range('A1:A16').RowHeight = RowHeight;
% 设置Range对象（从A1到H1）的列宽
Sheet1.Range('A1:H1').ColumnWidth = [9,15,9,9,9,9,9,9];
9 @; K& W4 \6 v; U, ^$ d
% 合并单元格
Sheet1.Range('A1:H1').MergeCells = 1;
Sheet1.Range('A2:H2').MergeCells = 1;
Sheet1.Range('A8:A9').MergeCells = 1;
Sheet1.Range('B8:H8').MergeCells = 1;
% b# l! w2 I4 G4 }Sheet1.Range('E8:H8').MergeCells = 1;
Sheet1.Range('B9:H9').MergeCells = 1;
Sheet1.Range('E9:H9').MergeCells = 1;
Sheet1.Range('A10:H10').MergeCells = 1;
, ?& j; r" Z2 t% G/ ySheet1.Range('A11:H11').MergeCells = 1;
Sheet1.Range('A12:H12').MergeCells = 1;
3 d% _# H. f9 s5 ^0 FSheet1.Range('A13:H13').MergeCells = 1;
Sheet1.Range('A14:H14').MergeCells = 1;
Sheet1.Range('D16:H16').MergeCells = 1;

% 设置单元格的边框
Sheet1.Range('A4:H14').Borders.Weight = 3;
; \0 F! i! p2 PSheet1.Range('A10:H12').Borders.Item(3).Linestyle = 0;
Sheet1.Range('A10:H12').Borders.Item(4).Linestyle = 0;
  n- v! w6 p# U. t& j8 QSheet1.Range('A13:H13').Borders.Item(4).Linestyle = 0;
Sheet1.Range('A14:H14').Borders.Item(3).Linestyle = 0;

0 ]) V! n* Y8 t. B; B- {% 设置单元格对齐方式
Sheet1.Range('A1:H9').HorizontalAlignment = 3;
Sheet1.Range('A4:A9').HorizontalAlignment = 6;
Sheet1.Range('C4:C7').HorizontalAlignment = 6;
: N* I% h; b* ~4 ~, @Sheet1.Range('E4:E7').HorizontalAlignment = 6;
1 l1 I' a' S4 Y; p$ V* V/ S, USheet1.Range('G4:G7').HorizontalAlignment = 6;
Sheet1.Range('A10:H10').HorizontalAlignment = 6;
! i% x6 \2 `* N; I7 QSheet1.Range('A11:H11').HorizontalAlignment = 6;    % -4130
- D2 G6 k; `- KSheet1.Range('A11:H11').VerticalAlignment = 1;
5 ^8 j* p7 j7 g6 \2 HSheet1.Range('A12:H12').HorizontalAlignment = 4;
% G* y9 v& v* N; \- p/ gSheet1.Range('A13:H13').VerticalAlignment = 1;
Sheet1.Range('A14:H14').HorizontalAlignment = 4;
Sheet1.Range('D16:H16').HorizontalAlignment = 4;
4 C) z* U/ N) A- I: \
% 写入单元格内容
Sheet1.Range('A1').Value = '试  卷  分  析';
1 X1 w# v6 S7 K* v: b2 @Sheet1.Range('A2').Value = '（ 2009  —  2010   学年 第一学期）';
( [' A2 W: y! USheet1.Range('A4:H4').Value = {'课程名称','','课程号',...
5 A, c9 ^% ~2 I+ N( C$ j    '','任课教师学院','','任课教师',''};
Sheet1.Range('A5:H5').Value = {'授课班级','','考试日期',...
. |# t8 y) m; N- Z9 I    '','应考人数','','实考人数',''};
Sheet1.Range('A6:H6').Value = {'出卷方式','','阅卷方式',...
    '','选用试卷A/B','','考试时间',''};
7 M8 E' L) _3 ASheet1.Range('A7:H7').Value = {'考试方式','','平均分',...
    '','不及格人数','','及格率',''};
! q$ x! G- b  y. MSheet1.Range('A8').Value = '成绩分布';
Sheet1.Range('B8').Value = '90分以上       人占        %';
5 ]* t1 z1 w' `( m4 oSheet1.Range('E8').Value = '80---89分        人占        %';
Sheet1.Range('B9').Value = '70---79分      人占        %';
5 Y% q# h5 U& ASheet1.Range('E9').Value = '60---69分        人占        %';
Sheet1.Range('A10').Value = ['试卷分析（含是否符合教学大纲、难度、知识覆'...
% n! F5 t7 X. \) c* o5 W/ C    '盖面、班级分数分布分析、学生答题存在的共性问题与知识掌握情况、教学中'...
    '存在的问题及改进措施等内容）'];
! q  w/ w- ^; L) B" ESheet1.Range('A12').Value = '签字 :                      年     月     日';
Sheet1.Range('A13').Value = '教研室审阅意见：';
Sheet1.Range('A14').Value = '教研室主任（签字）:             年    月    日';
- q& X1 |2 T1 G6 g/ E& |* U/ eSheet1.Range('D16').Value = '主管院长签字：                  年    月    日';

% 设置字号
Sheet1.Range('A4:H12').Font.size = 10.5;    % 设置单元格A4至H12的字号为10.5
  L% {, i( a( R9 T$ F. JSheet1.Range('A1').Font.size = 16;          % 设置单元格A1的字号为16
Sheet1.Range('A1').Font.bold = 2;           % 单元格A1的字体加粗

% 插入图片，如果当前工作表中有图形存在，通过循环将图形全部删除
Shapes = Sheet1.Shapes;    % 返回第1个工作表的Shapes接口的句柄
  z! W/ O2 O' s$ ^' M" ~if Shapes.Count ~= 0;
    for i = 1 : Shapes.Count;
        Shapes.Item(1).Delete;    % 删除第1个Shape对象
    end;
end;

% 产生均值为75，标准差为4的正态分布随机数，画直方图，并设置图形属性
zft = figure('units','normalized','position',...
[0.280469 0.553385 0.428906 0.251302],'visible','off');  % 新建图形窗口，设为不可见
set(gca,'position',[0.1 0.2 0.85 0.75]);    % 设置坐标系的位置和大小
/ S$ O0 H$ A, U9 w% j' ]- Vdata = normrnd(75,4,1000,1);    % 产生均值为75，标准差为4的正态分布随机数
+ B: s7 g7 m. {/ @; ?  i0 x8 dhist(data);    % 绘制正态分布随机数的频数直方图
8 q5 Y( t* A& Z; hgrid on;       % 添加参考网格
xlabel('考试成绩');    % 为X轴加标签
/ l6 F4 b& H! v" h* Tylabel('人数');       % 为Y轴加标签
  S! w6 e1 W7 Y( {5 R2 o8 Khgexport(zft, '-clipboard');    % 将直方图复制到剪贴板
8 O, b! n; ]' p( h3 f* H$ C% 选中工作表Sheet1的A11单元格，插入由MATLAB命令作出的直方图
/ _7 \( X1 Y5 i1 R$ i3 V% rSheet1.Range('A11').Select;
& u& c6 E! z" g: n  `Sheet1.Paste    % Sheet1.PasteSpecial;
9 R' E# ^9 m, z* J: F
delete(zft);    % 删除图形句柄
Workbook.Save   % 保存文档

panphp

看看楼主分享的代码。

vrunst

学习了 谢谢

vrunst

谢谢！！！！！！
& ~7 a  O8 j- X& B