Exporter données MATLAB vers Excel

Version imprimable

Bonjour à tous,

Actuellement en stage dans le domaine de la simulation, je dois exporter des résultats de plusieurs simulations dans un même fichier excel.
Je ne suis pas très bon avec Matlab mais je découvre au jour le jour sur internet.
J'ai une petite difficulté.. J'arrive à exporter mes données mais à chaque fois dans la même cellule. Est-il possible de faire une boucle if en indiquant que si la cellule est occupée, je mets ma figure à un autre endroit ?
J'espére que ma question est assez claire.. Merci !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 print -dmeta; %.................Copying to clipboard FILE = 'C:\...\essai.xls'; Range ='J20'; %.............excel COM object............................................................................ Excel = actxserver ('Excel.Application'); Excel.Visible = 1; invoke(Excel.Workbooks,'Open',FILE); %Open the file ActiveSheet = Excel.ActiveSheet; ActiveSheetRange = get(ActiveSheet,'Range',Range); ActiveSheetRange.Select; ActiveSheetRange.PasteSpecial; %.................Pasting the figure to the selected location %-----------------------------------end of function

28/09/2016, 15h27
Jerome Briot
Tu peux tester le contenu de la cellule courante :
Code:

1 2 3 if isempty(ActiveSheetRange.Value) end
Et utiliser la propriété Cells de l'objet Range pour décaler la cellule :
28/09/2016, 16h00
Clem44120

Super, merci beaucoup je vais essayer pour la prochaine simulation !
J'ai une autre question mais ce n'est pas le sujet, je vais re créer une discussion..
11/10/2016, 16h56
Clem44120

Petit up car je me suis penché de nouveau sur cette histoire d'excel...
En fait j'ai une donnée "a" qui regroupe plusieurs valeurs d'une expérince.
Je la mets sur excel dans une cellule mais je veux que si cette cellule est occupée (une fois que je passe à l'expérience suivante), cela décale d'une cellule.
Du coup de N44 à O44 etc...

Code:

xlswrite('C:\Dropbox\.....\......\patate.xlsx',a,1,'N44');

Pourquoi ne pas faire comme ceci ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 nXp = 0; for n = 1:... a = ...; range = sprintf('%s44', 'N'+nXp); xlswrite('C:\Dropbox\.....\......\patate.xlsx', a, 1, range ); nXp = nXp + size(a,1); end
Tu pourras gérer les indices de colonnes supérieurs à Z avec l'une de ces deux contributions :

[Excel] Conversion adresse cellule - indices de tableau
[Excel] Notation de référence de cellules

13/10/2016, 15h02
Clem44120

Je ne peux pas faire comme cela car pour chaque expérience je relance le même programme.
Les 5 expériences ne sont pas effectuées en un seul programme.. C'est bien pour cela que je cherche à détecter les cellules pleines pour décaler..
J'ai bien essayé de faire 5 programmes différents pour chacune des expériences mais c'est pas recevable..

Essaie ceci :

Code:

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
Excel = actxserver('Excel.Application');
 
Excel.Visible = true;
 
Workbook = Excel.Workbooks.Add;
 
xlToRight = -4161;
 
for n = 2:5
 
    range = 'A1';
 
    M = ones(n)*n;
 
    range = Excel.ActiveSheet.Range(range);
 
    if ~isnan(range.Value)
        range = range.End(xlToRight);
        range = range.get('Offset',0,1);        
    end
 
    range = range.get('Resize',size(M,1), size(M,2));
    range.Value = M;
 
end
 
Workbook.SaveAs(fullfile(pwd, 'test.xlsx'));
 
Workbook.Close;
 
Excel.Quit;
 
delete(Excel)
 
clear Excel

14/10/2016, 16h45
Clem44120

Je ne comprends pas bien...
J'ai essayé de le rentrer pour voir ce que cela faisait, ça me retourne des 2 3 4 et 5 dans ma feuille excel..
Je ne peux pas me servir du xlswrite ?

Remplace :

Code:

xlswrite('C:\Dropbox\.....\......\patate.xlsx',a,1,'N44');

Par :

Code:

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
Excel = actxserver('Excel.Application');
 
Excel.Visible = false;
 
Workbook = Excel.Workbooks.Open('C:\Dropbox\.....\......\patate.xlsx');
 
ActiveSheet = Excel.Worksheets.Item(1);
 
range = 'N44';
 
range = ActiveSheet.Range(range);
 
if ~isnan(range.Value)
    xlToRight = -4161;
    range = range.End(xlToRight);
    range = range.get('Offset',0,1);
end
 
range = range.get('Resize',size(a,1), size(a,2));
range.Value = a;
 
Workbook.Save;
 
Workbook.Close;
 
Excel.Quit;
 
delete(Excel)
 
clear Excel

J'ai essayé de modifier un peu ce que vous m'avez envoyé sans succès...
Code:

1 2 3 4 5 Error using Interface.00020846_0000_0000_C000_000000000046/get Error: Object returned error code: 0x800A03EC Error in test (line 1079) range = range.get('Offset',0,1);

14/10/2016, 19h44
Jerome Briot

Citation:

Envoyé par Clem44120

J'ai essayé de modifier un peu ce que vous m'avez envoyé sans succès...

C'est à dire ?
17/10/2016, 17h28
Clem44120

Des bidouilles plus qu'autre chose...

Le code n'est pas parfait…

Voici une version plus simple :

Code:

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
Excel = actxserver('Excel.Application');
 
Excel.Visible = false;
 
Workbook = Excel.Workbooks.Open('C:\Dropbox\.....\......\patate.xlsx');
 
ActiveSheet = Excel.Worksheets.Item(1);
 
range = 'N44';
 
range = ActiveSheet.Range(range);
 
while ~isnan(range.Value)
    range = range.get('Offset',0,1);
end
 
range = range.get('Resize',size(a,1), size(a,2));
range.Value = a;
 
Workbook.Save;
 
Workbook.Close;
 
Excel.Quit;
 
delete(Excel)
 
clear Excel

18/10/2016, 14h40
Clem44120

Merci beaucoup je vais essayer.
Sinon j'ai surement trouver un autre moyen si cela ne fonctionne pas...
Dernière question....
Si j'ai un mobile qui accélère jusqu'a un max et qu'ensuite il décélère. Ai je un moyen de récupérer les valeurs seulement après le max ? C'est à dire sur la phase de décélération ?
Jusqu'à présent j'utilisais un find de Vx<max(Vx) mais je n'avais pas la phase d'accélération donc ça marche moins bien... 8O