function count_oute = Excel(counte)
coder.extrinsic('pwd');
coder.extrinsic('strcat');
coder.extrinsic('actxserver');
coder.extrinsic('invoke');
coder.extrinsic('get');
coder.extrinsic('set');
coder.extrinsic('delete');
Excel_File = 'If_actxserver.xlsx';
Current_Directory = pwd;
excel_filename = strcat(Current_Directory,'\',Excel_File);
persistent h_Excel;
if isempty(h_Excel)
h_Excel = actxserver('Excel.Application');
end
persistent Excel_Workbook;
if isempty(Excel_Workbook)
Excel_Workbook = invoke(get(h_Excel, 'Workbook'), 'Open',excel_filename);
end
if (counte==1)
set(h_Excel, 'Visible', 1);
disp('Started Mathcad application');
end
disp('Excel Iterate #');
disp(counte);
if (counte==11)
iTHEVALUE = invoke(get(Excel_Workbook, 'Worksheets'),'Item','InitialVars');
iiTHEVALUE = invoke(iTHEVALUE, 'Range','A1:B4');
disp(iiTHEVALUE.Value);
invoke(Excel_Workbook,'Close');
invoke(h_Excel,'Quit');
invoke(h_Excel,'delete');
disp('Excel Closed');
end
count_oute=counte;
end