主题:matlab数据导出到Excel
tangkp123
[专家分:0] 发布于 2007-09-14 15:10:00
如何将matlab数据中导出到Excel
回复列表 (共7个回复)
沙发
mikle [专家分:390] 发布于 2007-09-14 17:06:00
读出:
[data varname]=xlsread('你的excel文件名')
写入:
xlswrite('你的excel文件名',data)
板凳
mikle [专家分:390] 发布于 2007-09-14 17:08:00
忘了,xlswrite这个函数的函数写
3 楼
mikle [专家分:390] 发布于 2007-09-14 17:12:00
[转帖]如何将matlab求出的矩阵保存在EXCEL表格中
function xlswrite(m,header,colnames,filename);
% xlswrite Easily create an Excel spreadsheet from MATLAB
%
% xlswrite(m,header,colnames,filename) creates a Microsoft Excel
% spreadsheet using
% the MATLAB ActiveX interface. Microsoft Excel is required.
%
%Inputs:
% m Matrix to write to file
% (Optional):
% header String of header information.
% Use cell array for multiple lines
% DO NOT USE multiple row character arrays!!
% colnames (Cell array of strings) Column headers.
% One cell element per column
% filename (string) Name of Excel file. If not specified, contents will
% be opened in Excel.
%
% ex:
% m = rand(100,4);
% header = 'my data';
% %header{1} = 'first line'; %This will give
% %header{2} = 'second line'; % 2 header lines
% colnames = {'Ch1','Ch2','Ch3','Ch4'};
%
% xlswrite(m,header,colnames,'myfile.xls');
% will save the spreadsheet as myfile.xls. The user
% will never see Excel
% xlswrite(m,header,colnames);
% will open Excel with these contents in a new spreadsheet.
%
% Scott Hirsch
% The MathWorks
% This is provided free, no warranty, ...
% Copied from ActiveX example in documentation
[nr,nc] = size(m);
if nc>256
error('Matrix is too large. Excel only supports 256 columns');
end;
% Open Excel, add workbook, change active worksheet,
% get/put array, save.
% First, open an Excel Server.
Excel = actxserver('Excel.Application');
%If the user does not specify a filename, we'll make Excel visible
%If they do, we'll just save the file and quit Excel without ever making
% it visible
if nargin<4
set(Excel, 'Visible', 1); %You might want to hide this if
% you autosave the file
end;
% Insert a new workbook.
Workbooks = Excel.Workbooks;
Workbook = invoke(Workbooks, 'Add');
% Make the first sheet active.
Sheets = Excel.ActiveWorkBook.Sheets;
sheet1 = get(Sheets, 'Item', 1);
invoke(sheet1, 'Activate');
% Get a handle to the active sheet.
Activesheet = Excel.Activesheet;
%Write header
if nargin<2 | isempty(header)
nhr=0;
elseif iscell(header)
nhr = length(header); %Number header rows
for ii=1:nhr
ActivesheetRange = get(Activesheet,'Range',...
['A' num2str(ii)],['A' num2str(ii)]);
set(ActivesheetRange, 'Value', header{ii});
end;
else
nhr = 1; %Number header rows
ActivesheetRange = get(Activesheet,'Range','A1','A1');
set(ActivesheetRange, 'Value', header);
end;
4 楼
mikle [专家分:390] 发布于 2007-09-14 17:12:00
%Add column names
if nargin>2 & ~isempty(colnames)
nhr = nhr + 1; %One extra column name
ncolnames = length(colnames);
for ii=1:ncolnames
colname = localComputLastCol('A',ii);
% cellname = [char(double('A')+ii-1) num2str(nhr+1)];
cellname = [colname num2str(nhr)];
ActivesheetRange = get(Activesheet,'Range',cellname,cellname);
set(ActivesheetRange, 'Value', colnames{ii});
end;
end;
% Put a MATLAB array into Excel.
FirstRow = nhr+1; %You can change the first data row here.
% I start right after the headers
LastRow = FirstRow+nr-1;
FirstCol = 'A'; %You can change the first column here
LastCol = localComputLastCol(FirstCol,nc);
ActivesheetRange = get(Activesheet,'Range',...
[FirstCol num2str(FirstRow)],[LastCol num2str(LastRow)]);
set(ActivesheetRange, 'Value', m);
% If user specified a filename, save the file and quit Excel
if nargin==4
invoke(Workbook, 'SaveAs', [pwd filesep filename]);
invoke(Excel, 'Quit');
[pathstr,name,ext] = fileparts(filename);
disp(['Excel file ' name '.xls has been created.']);
end;
%Delete the ActiveX object
delete(Excel)
function LastCol = localComputLastCol(FirstCol,nc);
% Comput the name of the last column where we will place data
%Input
% FirstCol (string) name of first column
% nc total number of columns to write
%Excel's columns are named:
% A B C ... A AA AB AC AD .... BA BB BC ...
FirstColOffset = double(FirstCol) - double('A'); %Offset from column A
if nc<=26-FirstColOffset %Easy if single letter
%Just convert to ASCII code,add the number of needed columns,and convert ba
ck
%to a string
LastCol = char(double(FirstCol)+nc-1);
else
ng = ceil(nc/26); %Number of groups (of 26)
rm = rem(nc,26)+FirstColOffset; %How many extra in this group beyond
A
LastColFirstLetter = char(double('A') + ng-2);
LastColSecondLetter = char(double('A') + rm-1);
LastCol = [LastColFirstLetter LastColSecondLetter];
end;
5 楼
mikle [专家分:390] 发布于 2007-09-14 17:14:00
打开 excel 进入工具---加载宏
选择浏览 找到 matlab 所在目录 添加宏D:\MATLAB6p5\toolbox\exlink
(我的 matlab 装在d:\下)
完成后在 excel会多出3个图标,分别写着 putmatrix getmatrix evalstring
单击它们就可以用了
还可以考虑
MATLAB Excel Builder
具体可以看帮助
如果你只是倒一下矩阵,大可不必用到MATLAB Excel Builder
6 楼
xxyyxz [专家分:0] 发布于 2007-09-18 17:42:00
wk1write('你的excel文件名',data)
7 楼
bioguider [专家分:0] 发布于 2007-09-22 04:01:00
点击变量,拷贝,粘贴
我来回复