Discussion :

[James64]

Bonjour,

g le code suivant :

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;

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

[Bruno75]

Excuse moi d'enfoncer des portes ouvertes mais ca signifie tout simplement que ton objet n'a pas la méthode indiquée. Tout simplement. Il faut que tu checkes l'aide microsoft pour trouver le nom de la fonction qu'il te faut.

Va jeter un coup d'oeil à la msdn sur leur site tu vas trouver ton bonheur

par exemple un point d'entrée
http://msdn.microsoft.com/library/de.../D3/S5A84B.asp

Il me semble que tu dois utiliser la property Cells

Code :

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

vWorksheet.Cells[3,3] := Table1.Fields[index].AsString;

[James64]

c juste !
Merci beaucoup

Bye

[James64]

Peut etre pourrais tu m'aider sur ce point :
Cela prend beaucoup de temps pour transférer les données une par une dans les cellules. Y a t il une instruction pour copier les champs entiers de table1 vers les champs excel ?

Merci

[Bruno75]

Utilises le clipboard pour faire du copier coller

Code :

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

uses Clipboard;

puis regarde l'aide

Ensuite tu créés ta matrice dans ton clipboard
Tabulation pour séparer deux cellules
Retour à la ligne pour séparer les lignes

Puis tu fais un copier coller. Faut tu regardes dans l'aide microsoft. Je pense qu'il faut regarder l'objet Range. à voir.

[James64]

Merci, mais mon problème est résolu !!

Il existe un composant delphi TExportPdoxExcelDlg qui fait tout !!
Il exporte les tables PARADOX sous Excel !!! C génial !!
En plus, simple.

Lien : http://www.phidels.com/php/index.php...31d83e6cd77999

A+ :wink