Bonjour,
g le code suivant :Avec ComObj dand le Uses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 var vXLWorkbook, vMSExcel, vWorksheet : variant; vFileName : AnsiString; index : Integer; begin vMSExcel := CreateOleObject('Excel.Application'); vFileName := 'D:\Excel.xls'; vXLWorkbook := vMSExcel.Workbooks.Open(vFileName); vWorksheet := vXLWorkbook.WorkSheets['BASE DE DONNEES']; vWorksheet.getCellByPosition(3,3).SetString(Table1.Fields[index].AsString); vMSExcel.Visible := true; end;
Delphi me génère une erreur du type : "Méthode 'GetCellByPosition' non supportée par l'objet automation"
Comprend pas ...:
Partager