Discussion :

[paulfr]

Bonjour,

Pour accéder à un fichier Excel j'utilise les instructions suivantes (cf Pilotage OLE d'Excel ... par LFE).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
vXLWorkbk := vXLWorkbks.Open(FileName, vLink, BReadOnly);
vWorkSheet := vXLWorkbk.WorkSheets['feuil1'];   // nom obligatoire : "feuil1"

La page étant unique dans le fichier Excel peut on l'appeler par sa "position" et comment ?
Sachant que les instructions trouvées dans le forum
WorkSheets.sheets(1) -> message "membre introuvable"
WorkSheets(1)
et WorkSheets.item(1) ou (0)
ne donnent pas de résultat.

Merci.

[defluc]

A priori, avec une seule feuille, l'ouverture se fait sur celle-ci et je ne vois donc pas le problème.
Donne un peu plus de détail (tes déclarations, les actions voulues) ...

[paulfr]

Je récupère sur internet un fichier .xls avec un nom de feuille différent chaque fois.
Je voudrai m'affranchir de renommer la feuille chaque fois.

[defluc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
var
  vWorkSheet: Sheets;
  Sheet : _WorkSheet;
...
...
   Sheet:= vWorkSheet.Item[1] as _Worksheet;
   Sheet.Cells.Item[1,1].Value :='TEST';

[paulfr]

Merci pour les renseignements.
Je vais essayer.
PL

Pb : dans Win32 BDS2006 ne connait pas les types Sheets et
_WorkSheet ?

[paulfr]

J'ai trouvé la réponse dernièrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vWorkSheet := vXLWorkbk.WorkSheets[1];