Liste des fichiers Excel ouverts avec OLE

Version imprimable

26/01/2010, 17h47
futneguet

Liste des fichiers Excel ouverts avec OLE

Bonjour,

j'aimerais récupérer la liste des fichiers Excel ouverts ainsi que pour chacun d'eux leurs feuilles.
A priori on peut le faire grace à cela :

Code:

Variant vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");

mais je ne trouve pas cette liste dans vXLWorkbooks.

J'ai bien sur au préalable fait ceci :

Code:

Variant vMSExcel = Variant::GetActiveObject("Excel.Application");

Merci

Un petit bout de code pour récupérer les classeur d'un fichier EXCEL.
En espérant que ça te sera utile:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
  Variant vMSExcel, vXLWorkbooks, vXLWorkbook, vWorksheet ;
//LANCEMENT D'EXCEL
  vMSExcel = Variant::CreateObject("Excel.Application");                 
//OUVERTURE DU FICHIER
  AnsiString templateFile = "C:\\ZZZ.xls" ;
  vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
  wchar_t * templateStr = StringToOleStr(templateFile) ;
  vXLWorkbook  = vXLWorkbooks.OleFunction("Open", templateStr );
  SysFreeString( templateStr );
//RÉCUPÉRATION DU NOMBRE DE CLASSEUR
  int nb = vXLWorkbook.OlePropertyGet("Worksheets").OlePropertyGet("Count");
//RÉCUPÉRATION DE LA LISTE DES NOMS DE CLASSEUR
  for( int i=1; i<=nb; i++ )
  {
    vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", i );
    ListBox1->Items->Add( vWorksheet.OlePropertyGet("Name") ) ;
  }
 
//[...]
// NE PAS OUBLIER DE LIBERER LES RESSOURCES!
//[...]

27/01/2010, 10h33
futneguet

Meric pour ta réponse mais ce n'est pas tout à fait cela que je veux.

Je veux pouvoir proposer à l'utilisateur une liste contenant les fichiers Excel (donc les classeurs) actuellement ouverts ainsi que les feuilles que chacun des classeurs contient.

Merci