OleExcel charger un fichier quelconque avec la boite de dialogue ouvrir d'Excel

Voici comment ouvrir un fichier quelconque avec la boite de dialogue ouvrir d'Excel avec un melange de OleExcel et de Handle de Fenetres:
le .cpp

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "Unit1.h" // deverou_VBE est le nom du programme
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSExcel;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Variant vXLWorkbooks, vXLWorkbook, vWorksheet;
Variant vWorksheets;
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
 // ici la fenetre Excel est ouverte
 // on va recuperer son Handle ainsi que celui de la barre de menus
HWND h = FindWindow("XLMAIN", "Microsoft Excel");
HWND h1 = FindWindowEx(h, NULL, "EXCEL2", NULL);
HWND h2 = FindWindowEx(h1, NULL, "MsoCommandBar", "Barre de menus Feuille de calcul");
 // on selectionne la Barre de menus
SetForegroundWindow(h2);
 // on active le premier element de la Barre de menus pour cela on simule "Alt"
PostMessage(h2, WM_KEYDOWN, VK_MENU, 0);
PostMessage(h2, WM_KEYUP, VK_MENU, 0);
Sleep(50);
for (int i = 1; i <= 3; i++)
        {
 // on simule la fleche vers le bas pour derouler le menu selectionne
   PostMessage(h2, WM_KEYDOWN, VK_DOWN, 0); // touche enfoncee
   PostMessage(h2, WM_KEYUP, VK_DOWN, 0); // touche relachee
        }
 // on simule la touche entree pour afficher la boite de dialogue
   PostMessage(h2, WM_KEYDOWN, VK_RETURN, 0); // touche enfoncee
   PostMessage(h2, WM_KEYUP, VK_RETURN, 0); // touche relachee
Sleep(50);
 // ici la boite de dialogue ouvrir est affichee
 // on recupere le Handle de la boite de dialogue
//HWND h3 = FindWindowEx(h2, NULL, "bosa_sdm_XL9", "Ouvrir");
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// on ferme le dossier
//vXLWorkbook.OleProcedure("Close", false);
// fermeture d'excel
vMSExcel.OleFunction("Quit");
// liberation memoire
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------

Le .h

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Qu'en pensez vous ? :P
Le programme a ete teste sur Window XP pack2 processeur AMD 3000+ et Excel 2003