Recevoir des données sous Excel

**olivier59820** · 01/07/2011, 10h22

Bonjour à tous,

je suis actuellement en train d'afficher un tableau sous excel.
Est-il possible d'éviter de passer par 'Import Wizard' pour avoir le fichier excel.
Je voudrais pourvoir l'ouvrir tout de suite.
J'arrive a ouvrir Excel mais je n'arrive pas à ouvrir mon tableau.
Mon code m'ouvre donc 2 fichiers de même nom:

- un fichier avec 'import wizard' avec mes données
- un autre fichier avec Excel déjà ouvert sans mes données

Avez vous une idée pourquoi cela ne fonctionne pas?

Voici mon code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
% --- Executes on button press in excel.
function excel_Callback(hObject, eventdata, handles,TestData, Motor, Drive, Comments)
%[TestData, Motor, Drive, Comments] = read_BENG_MotorTestbench;
watchon
drawnow
 
   %.............excel COM object............................................................................
         Excel = actxserver ('Excel.Application');
 Excel.Visible = 1;
 
 fichiersauvegarde='test2';
 if ~exist( fichiersauvegarde,'file')
       ExcelWorkbook=Excel.Workbooks.Add;
       ExcelWorkbook.SaveAs( fichiersauvegarde);
       ExcelWorkbook.Close(false);
 end
 
 
 
Numerofeuill=1;            
CaseDebut='a1'
legendeColonne={'Torque/Fréquency'};
[success,warning]=xlswrite(fichiersauvegarde,legendeColonne,Numerofeuill,CaseDebut)
 
 
fichiersauvegarde='test2';
Numerofeuill=1;            
CaseDebut='b1'
legendeColonne=[15:2.5:100];
[success,warning]=xlswrite(fichiersauvegarde,legendeColonne,Numerofeuill,CaseDebut)
 
fichiersauvegarde='test2';
Numerofeuill=1;            
CaseDebut='a2'
legendeLigne=((Tnom*7/100+Tnom)/15:(Tnom*7/100+Tnom)/15:(Tnom*7/100+Tnom));
A=[legendeLigne'];
[success,warning]=xlswrite(fichiersauvegarde,A,Numerofeuill,CaseDebut)
 
fichiersauvegarde='test2';
Numerofeuill=1;            
CaseDebut='b2'
data=EffGridMotor;
[success,warning]=xlswrite(fichiersauvegarde,data,Numerofeuill,CaseDebut)
 
open test2.xls
 invoke(Excel.Workbooks,'Open',fichiersauvegarde)
 
watchoff