function create_excel

% Runs with Shim Thickness GUI.
% Created by Mark Smith
% 11/30/07
% 
% Function saves thickness data per shim location to excel file.

% Revised 2/28/08 to accomodate changes for new shim labels.

thickness  = evalin('base','thickness');
labels     = evalin('base','labels');

[fname,pname,filterInd] = uiputfile('*.xls');
location = strcat(pname,fname);
range = strcat('A1:A',num2str(length(labels)));
xlswrite(location,labels,range)
range = strcat('B1:B',num2str(length(thickness)));
xlswrite(location,thickness,range)

