Kod: Tümünü seç
VAR
EXCELDEKISATIR,EXCELDEKISUTUN:Integer;
SAYFA: Variant;
cs : STRING;
begin
IF OpenDialog1.Execute THEN BEGIN
EXCELDOSYASI:=CreateOleObject('excel.application');
EXCELDOSYASI.Visible:=false;
EXCELDOSYASI.workbooks.open[OpenDialog1.FileName];
exceldebilgisayisi;
FOR EXCELDEKISUTUN:=1 to KACSUTUN DO // exceldeki sütun sayısı
BEGIN
FOR EXCELDEKISATIR:=2 to KACSATIR DO // exceldeki satır sayısı
BEGIN
ADOTable1.Open;
ADOTable1.Append;
ADOTable1.FieldByName(exceldosyasi.ActiveSheet.Cells[1,EXCELDEKISUTUN].Value).AsVariant:= exceldosyasi.ActiveSheet.Cells[EXCELDEKISATIR,1].Value;
END;
END;
END;
END;
BELKİ BAŞKA ARAYAN ARKADAŞLARA DA ÇÖZÜM OLMASI AÇISINDAN
// alanlara excelden veri aktarılıyor
ADOTable1.Open;
for EXCELDEKISATIR:=2 to KACSATIR do // exceldeki satır sayısı
begin //her satır bir kayıt demektir...
ADOTable1.Append; //kayıt eklenir
for EXCELDEKISUTUN:=1 to KACSUTUN do // exceldeki sütun sayısı
begin //tüm satırlara değerler yazılır
ADOTable1.FieldByName(exceldosyasi.ActiveSheet.Cells[1,EXCELDEKISUTUN].Value).AsVariant:= exceldosyasi.ActiveSheet.Cells[EXCELDEKISATIR,EXCELDEKISUTUN].Value;
end;
ADOTable1.Post;//satırlar yazıldıktan sonra tüm sütunların değerleri tabloya kayıt edilir...
end;
ShowMessage('veriler eklendi');
// veri aktarma son