xlswrite(varargin);

function xlswrite(varargin);
% 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.
%
% Modified by A. Sprenger (14.06.2005):
%   Write multiple matrizes in one workbook
%   xlswrite(m, header, colnames, filename, ...
%            m, header, colnames, ...
%            m, header, colnames, ...
%
%   if header is a string, it is used as a label for the sheet
%   if header is a cell array, it is used as a header on the the sheet.
%
% 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.
%      
if nargin == 0; errordlg('Error', 'No data available'); return; end
m = varargin{1};
if nargin > 1; header = varargin{2}; else; header = []; end;
if nargin > 2; colnames = varargin{3}; else; colnames = []; end;
if nargin > 3; filename = varargin{4}; end;

% 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');

% if there are more than 3 sheets to be created, add some sheets
if nargin > 10
    for i = 1 : (nargin - 10) / 3
        invoke(Excel.ActiveWorkBook.Sheets, 'Add');
    end
end

% 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 = 0;        %nhr = 1;                    %Number header rows
    %ActivesheetRange = get(Activesheet,'Range','A1','A1');
    set(Activesheet, 'Name', header);
    %set(ActivesheetRange, 'Value', header);
end;


%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 nargin > 4
    for ii2 = 0 : (nargin - 4) / 3 - 1
        m = varargin{ii2 * 3 + 5};
        header = varargin{ii2 * 3 + 6};
        colnames = varargin{ii2 * 3 + 7};
        [nr,nc] = size(m);
        
        sheet1 = get(Sheets, 'Item', ii2 + 2);            
        invoke(sheet1, 'Activate');
        % Get a handle to the active sheet.
        Activesheet = Excel.Activesheet;
	
		%Write header
		if 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 = 0;        %nhr = 1;                    %Number header rows
                %ActivesheetRange = get(Activesheet,'Range','A1','A1');
            set(Activesheet, 'Name', header);
            %set(ActivesheetRange, 'Value', header);
		end;
        
        %Add column names
		if ~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);
    end;
end;  

% If user specified a filename, save the file and quit Excel
if nargin > 3
    if ~isempty(varargin{4}),
        %invoke(Workbook, 'SaveAs', [pwd filesep filename]);
        invoke(Workbook, 'SaveAs', filename);
        invoke(Excel, 'Quit');
    
        [pathstr,name,ext] = fileparts(filename);
        disp(['Excel file ' name '.xls has been created.']);
    end;
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 back
    %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;