Discussion :

[Nechba]

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 :

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

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 ;

[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

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

[Nechba]

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 :

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

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;

[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

[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