1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
Excel = actxserver('Excel.Application');
file = 'ImagesExtraction.xls';
Workbook = invoke(Excel.Workbooks,'Open',file);
Application = Workbook.Application;
ActiveSheet =Excel.Activesheet;
for i =1:1000
ActiveSheetRange = get(ActiveSheet,'Range','C20','C20');
set(ActiveSheetRange,'Value','New.irs');
% 1st path
p = mon path;
ActiveSheetRange = get(ActiveSheet,'Range','C32','C32');
set(ActiveSheetRange,'Value',p);
% second path
ActiveSheetRange = get(ActiveSheet,'Range','C33','C33');
set(ActiveSheetRange,'Value',p2);
%Name
ActiveSheetRange = get(ActiveSheet,'Range','C21','C21');
set(ActiveSheetRange,'Value',name);
%first image
ActiveSheetRange = get(ActiveSheet,'Range','C23','C23');
set(ActiveSheetRange,'Value',1);
%last image
ActiveSheetRange = get(ActiveSheet,'Range','C24','C24');
set(ActiveSheetRange,'Value',100);
%seqName
ActiveSheetRange = get(ActiveSheet,'Range','C25','C25');
set(ActiveSheetRange,'Value',seqName);
%format .MAT
ActiveSheetRange = get(ActiveSheet,'Range','C26','C26');
set(ActiveSheetRange,'Value',2);
% Call excel macro
invoke(Application,'Run','ImagesExtraction.xls!extraction');
end |
Partager