

clear; clc; close all; %help;

%system('mkdir 1 2 3 4 5 6 7 8 9');

cell1={'One, two, three, 4'};

filename=[mfilename('fullpath'),'.xlsx'];

if exist(filename)==2
  delete(filename);
end
%pause(0.05);
xlswrite(filename,cell1,[],[],'oct');
