Comment remplir un ComboBox avec le nom des feuilles Excel ?

Version imprimable

24/06/2005, 23h03
libracom

Comment remplir un ComboBox avec le nom des feuilles Excel ?

Bonjour,

Je cherche une solution pour recuperer les noms des feuilles d'un classeur Excel et de les mettre dans un combobox.
Je suis debutant et j'ai beaucoup de mal a me familliariser avec DELPHI + Excel, alors soyez indulgent avec moi. :oops:

Merci

Voila un bout de code qui permet de le faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
    vMSExcel : variant;
    vXLWorkbooks, vXLWorkbook : variant;
    i : byte;
Begin
If not OpenDialog1.Execute then exit;
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := False;
 
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Open(OpenDialog1.FileName);
ComboBox1.Clear;
For i:=1 to vXLWorkbook.Worksheets.Count do
      ComboBox1.Items.Add(vXLWorkbook.Worksheets.Item[i].Name);
vMSExcel.Quit;
vMSExcel := unassigned;

bon development

@ plus

27/06/2005, 15h14
libracom

Bravo a toi et merci beaucoup Biodochon
Ca fonctionne tres bien !
:bravo: :bravo: :bravo: :bravo: :bravo: :bravo: