Discussion :

[libracom]

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.

Merci

[bidochon]

Voila un bout de code qui permet de le faire :

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
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

[libracom]

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