Excel’den Veritabanına Veri Transferi

Excel’den Veriatabanına Veri Transferi uses ComObj; procedure TForm1.Button2Click(Sender: TObject); var     book:variant;     excel,sheet:variant;     satir, sutun:integer;     str:string; begin     excel := createOleObject("Excel.application");     OpenDialog1.Filter := "Excel Dosyaları (*.xls)|*.xls";     if opendialog1.Execute then     begin         book:= Excel.WorkBooks.Open(OpenDialog1.FileName);         try             Screen.Cursor := crHourGlass;             sheet := book.worksheets[1];             for satir:=1 to 2500 do             begin                 str := sheet.cells[satir, 1];                 if (str <> "") then                 begin                     Update;                     Table1.Append;                     for sutun:=1 to 11 do                         Table1.Fields[sutun-1].AsString :=sheet.cells[satir, sutun];                     Table1.Post;                 end;             end;             Excel.quit;             excel:=Unassigned;         finally             Screen.Cursor := crDefault;         end;     end; End; procedure TForm1.FormShow(Sender: TObject); begin     Table1.Open; end; procedure TForm1.FormClose(Sender: TObject;  var Action: TCloseAction); begin     Table1.Close; end;

Döküman Arama

Başlık :

Kapat