Importation Fichier Excel dans un DBGrid (Erreur)

Version imprimable

1 pièce(s) jointe(s)

Bonjour a tous

Cette code m'afficher une message d'erreur
l'importation a éte effectué mais avec un message d'erreur
Merci d'avance de m'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm1.importation(Sender: TObject);
var
 Excel: variant;
 Cell,Sheet : variant;
 Col: TColumn;
 Range :AnsiString;
 i: char;
 column,row: integer;
 
begin
  Excel:=CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(Edit1.Text,unassigned,true);
  Sheet := Excel.WorkBooks[1].WorkSheets[1];
  i:='A';
 
    while (Sheet.Range[i+'1'].value<>' ') do
    begin
  Col:=DBGrid1.Columns.Add;
  Col.Title.Caption:=Sheet.Range[i+'1'];
  byte(i) := byte(i) + 1 ;
end;
 
end ;

31/07/2019, 11h09
Charly910

Bonjour,

il faudrait que tu précises avec quelle version de Delphi tu travailles (et VCL ou FMX), les Uses que tu utilises pour Excel
et que tu donnes un exemple de ton fichier Excel.

On pourra alors tester.

A+
Charly
31/07/2019, 16h54
blonde

Bonjour,

saurai-tu dire à quelle ligne tu as l'erreur ?

Moi j'ai dû ajouter "VarToStr ()" pour caster ton expression "Sheet.Range[i+'1'].value" par exemple. Sinon, j'avais effectivement une erreur.

Merci a vous
mais voila la solution mais j'aime maitemenet remplire les champs restant( les lignes) j'attend votre aide svp
je developpe avec delphi 2.0
et merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 nbr := 0 ;
 c := 'A';
 while(c <= 'Z') do
 begin
 test1 := (Sheet.Range[c+'1'].value)   ;
 if (test1 <> '' ) then
  begin
  nbr := nbr + 1 ;
  Col:=DBGrid1.Columns.Add;
  Col.Title.Caption:=test1;
  Col.Title.Caption:=test;    // Pour ajouter l'en tête de tableau 
// row.Fields.Caption:=test1;
 
  byte(c) := byte(c)+1;
 end
 else
   byte(c) := byte(c)+1;
 end ;
  label1.caption := inttostr(nbr) ;
 
    end;

02/08/2019, 09h21
SergioMaster

Bonjour,

un DBGrid est lié à une source de données (contrairement à un stringgrid) un insert dans cette source fait donc le travail,
Mais vu ce que vous voulez faire, je pense que c'est un stringgrid que vous devez utiliser ajoutez une ligne revient alors à augmenter rowcount
02/08/2019, 12h14
SergioMaster

Re,

Tout d'abord quelques mots sur votre solution qui n'est pas vraiment optimisée : vous recherchez toutes les colonnes de la grille au lieu de vous contenter de celles utilisées ce que vous auriez pu obtenir avec EntireRow voir faq

Ensuite vous voulez utiliser une DBGrid, si c'est le cas ce n'est pas la grille qu'il faut remplir mais une table
Enfin que voulez vous faire avec cette grille car pour l'instant vous nous demandez l'affichage mais je sens venir les modifications ensuite !

Comme il s'agit de Delphi 2.0 peu de personnes pourront vous proposer des solutions et les tester car D2 date du siècle dernier

Avez-vous pensé à rechercher un composant tiers ? Vous verrez qu'il y en a peu pour D2 inspirez vous donc de ces sources https://torry.net/db/access/db_bdeexport/oleexcel.zip