Problème avec OLE : GetCellByPosition
Bonjour,
g le code suivant :
Code:
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; |
Avec ComObj dand le Uses
Delphi me génère une erreur du type : "Méthode 'GetCellByPosition' non supportée par l'objet automation"
Comprend pas ... :?:
