(Excel := CreateOleObject('Excel.Application');) takıldım bu konuyla ilgili hiç bir çalışma ve örnekte bulamadım excelden databaseye veri girişini nasıl sağlayabilirim...
Kod: Tümünü seç
procedure TForm2.ExcelClick(Sender: TObject);
const
xlCellTypeLastCell = $0000000B;
var
Kyt: TListItem;
Str: String;
Book: Variant;
Excel, Sheet: Variant;
Kolon, SSay: Integer;
begin
try
Excel := CreateOleObject('Excel.Application');
With OpenDialog do
begin
Filter := 'Excel *.xls,*.xlsx|*.xls;*.xlsx';
FilterIndex := 1;
if Execute then
begin