Discussion :

[goldo33]

Bonjour,
j'ai besoin de récupérer des données matlab sous Excel. Après avoir effectué quelques recherches j'ai trouvé la méthode suivante pour y arriver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
% First open an Excel Server
Excel = actxserver('Excel.Application');
set(Excel, 'Visible', 1);
 
Workbooks = Excel.Workbooks;
Workbook = invoke(Workbooks, 'Add');
 
Activesheet = Excel.Activesheet;
 
ActivesheetRange = get(Activesheet,'Range','B1:B22');
set(ActivesheetRange, 'Value', x);
 
ActivesheetRange = get(Activesheet,'Range','A1:A22');
set(ActivesheetRange, 'Value', nom);
 
%etc...

Mon problème est que je voudrais pouvoir "customiser" un peu mon fichier Excel depuis Matlab, genre mettre des bordures, changer la police, mettre des couleurs etc...
Est ce quelqu'un sait comment faire ??

merci d'avance

[tug83]

Le plus simple est d'inspecter le code VBA d'une macro , exemple d'un code VBA où tu as modifié le font de la cellule A1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
%%%BEGIN PRE%%%
Sub mymodule()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 42
    End With
End Sub
%%%END PRE%%%

que tu appliques pour MATLAB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
xlswrite('C:\Temp\test.xls',1,'A1');
Excel = actxserver('Excel.Application');
Excel.Workbooks.Open('C:\Temp\test.xls');
Range= Excel.Range('A1');
Range.Interior.ColorIndex = 3;
Range.Font.ColorIndex = 42;
Excel.Visible=1;

[cococococococo]

Et comment on fait pour fermer le server apres avoir ecrit dans le fichier ? car a chaque fois que je veux l'ouvrir avec cette methode il me dit que le fichier est deja ouvert. Donc je voudrais bien pouvoir le refermer avant la fin de l'execution de mon callback.
J'ai essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Excel.Workbooks.Close('C:\Temp\test.xls')

mais sans succes

[Jerome Briot]

As-tu regardé l'exemple jusqu'à la fin ?

Are there any examples that show how to use the ActiveX automation interface to connect MATLAB to Excel?