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 |
