Matlab实例学习-----Matlab与Excel交互，Matlab作为自动化客户端调用Excel服务器

（1）xlsread  从Excel中读取数据

语法：

[num,txt,raw] = xlsread(filename)

[num,txt,raw] = xlsread(filename,-1)

[num,txt,raw] = xlsread(filename,sheet)

[num,txt,raw] = xlsread(filename,range)

[num,txt,raw] = xlsread(filename,sheet,range)

[num,txt,raw] = xlsread(filename,sheet,range,‘basic‘)

[num,txt,raw,custom] = xlsread(filename,sheet,range,‘‘,functionHandle)

其中：

filename是文件路径，sheetn表示读取第几个sheet

range表示范围：A1:B2

-1表示可以打开图形界面用鼠标选择要读取的区域

实例：

data=xlsread('C:\Users\zhou\Desktop\新建 Microsoft Excel 工作表.xls','sheet1','A1:J10')
data =

     1     2     3     4     5     6     7     8     9     0
     2     3     4     5     6     7     8     9     0   NaN
     3     4     5     6     7     8     9     0   NaN   NaN
     4     5     6     7     8     9   NaN   NaN   NaN   NaN
     5     6     7     8     9     0   NaN   NaN   NaN   NaN
     6     7     8     9     0   NaN   NaN   NaN   NaN   NaN
     7     8     9     0   NaN   NaN   NaN   NaN   NaN   NaN
     8     9     0   NaN   NaN   NaN   NaN   NaN   NaN   NaN
     9     0   NaN   NaN   NaN   NaN   NaN   NaN   NaN   NaN
     0   NaN   NaN   NaN   NaN   NaN   NaN   NaN   NaN   NaN

其中：Excel表中的内容为：

（2）xlswrite 向Excel中写入数据

语法：

xlswrite(filename,A)

xlswrite(filename,A,sheet)

xlswrite(filename,A,range)

xlswrite(filename,A,sheet,range)

status = xlswrite(filename,A,sheet,range)

[status,msg] = xlswrite(filename,A,sheet,range)

实例：

values = {1, 2, 3 ; 4, 5, 'x' ; 7, 8, 9};
headers = {'First', 'Second', 'Third'};
xlswrite('myExample.xls', [headers; values],'sheet3');

注意：如果电脑中没有安装Office的而是安装的WPS的话，需要新建myExample.xls文件，否则可能会出错。。。

结果：

（3）xlsfinfo 判断文件是否包含Excel表格

语法：

status = xlsfinfo(filename)

[status,sheets]= xlsfinfo(filename)

[status,sheets,xlFormat]= xlsfinfo(filename)

实例：

[typ, desc, fmt] = xlsfinfo('myaccount.xlsx')
This code returns:
typ =
    Microsoft Excel Spreadsheet
desc =
    'Sheet1'    'Income'    'Expenses'
fmt =
    xlOpenXMLWorkbook

（4）Matlab作为自动化客户端调用Excel服务器

ChartType属性请看：http://blog.csdn.net/z1137730824/article/details/38977505

实例：

% MATLAB作为自动化客户端调用Excel服务器
% Open OLE server   OLE（对象链接与嵌入）
he = actxserver('Excel.Application');
% 上述语句创建excel服务器，句柄值为he，通过he可以访问excel服务器的属性和方法。

% 在使用中为了方便存储，可以设置默认路径，使用excel服务器的DefaultFilePath属性：
he.DefaultFilePath = 'E:\';

% 调试中为了方便观看excel文件内容，可以设置excel服务器的Visible属性，实际调试时可以改为1，调试过后改为0即可
he.Visible = 1;

% Create Workbooks 通过excel服务器的属性Workbooks创建工作簿句柄，通过该句柄的方法Add创建工作簿
hw = he.Workbooks.Add;

% get Worksheets and actived one sheet  然后，继续通过hw的Worksheets属性建立Sheets类句柄
hs = hw.Worksheets;

%访问某一sheet的方法即用sheets的Item方法
hs1 = Item(hs, 1);

% Write a number to Excel  向Excel中写入数字
hr = hs1.Range('A1');
hr.Value = 1;

% Write numbers    向Excel中写入数组
hr2 = hs1.Range('A1:A10');
hr2.Value = randint(10, 1);

% Plot  绘图
hshape = hs1.Shapes;
hchart = hshape.AddChart(hr2);
theChart = hchart.Chart;
set(theChart, 'ChartType', 'xlLine');  %绘制折线图

% Plot 2
plot(randint(10, 1));
hgexport(gcf, '-clipboard');   %先导入到粘贴板中
hs1.Range('C3').PasteSpecial;  %向Excel中粘贴
thefigure = Item(hshape, 2);
IncrementLeft(thefigure, 10);   %移动图形
IncrementTop(thefigure, 10);

% Save and Quit   保存退出
hw.SaveAs('a.xlsx');
he.Quit;