1 pièce(s) jointe(s)
Importer un fichier XLS dans un StringGrid avec OpenDialog
Bonjour,
Je suis un grand commençant dans l'univers du développement.
Je voudrais charger les données de mon fichier XLS dans un StringGrid.
Alors j'ai pas mal de forum mais je ne trouve réellement ce que je veux.
Je je serais très bien d'avoir de l'aide.
Merci d'avance.
Ci-contre le code que j'ai essayé de faire.
DELPHI 7 - XLS 2010
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
{ BOUTON D'IMPORTATION DE FICHIER XLS }
procedure TForm_Import.btn_uploadClick(Sender: TObject);
begin
with Import_File do
begin
Title := 'IMPORTATION DE FICHIER XLS';
Filter := '*.xlsx';
DefaultExt := 'xlsx';
InitialDir := GetCurrentDir;
Options := [ofFileMustExist];
if Execute then
begin
MessageDlg('Le fichier a été chargé.', mtInformation, [mbOK], 0);
// Appple de la fonction de chragement de fichier XLS
end else
begin
MessageDlg('Le fichier n''a pas été chargé.', mtInformation, [mbOK], 0);
end;
end;
end;
{ CHARGER LE FICHIER XLS DANS UN STRINGGRID }
procedure TForm_Import.ChargerFichier(FileName: String);
var
TableNames : TStrings;
i : Integer;
begin
connexionBase.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source="'
+ FileName + '";Extended Properties="Excel 8.0;HDR=Yes;IMEX=0";Persist Security Info=False';
connexionBase.Open;
try
TableNames := TStringList.Create;
connexionBase.GetTableNames(TableNames);
TConnexionBase.TableName := '['+ TableNames[0] +']';
TConnexionBase.Open;
TConnexionBase.First;
// Je veux parcourir le fichier et faire le chargement.
for i := 0 to TConnexionBase.RecordCount - 1 do
begin
// Je suis coincé
end;
finally
TConnexionBase.Close;
connexionBase.Close;
MessageDlg('Import terminé avec sucés', mtInformation, [mbOK], 0);
end;
end; |
