Delphi Импорт данных Excel

[Lomanu4]

Предварительные условия: Сначала установите программное обеспечение EXCEL.

Функция импорта данных Excel часто используется в программе. На самом деле, с помощью OLE-операции Excel представляет собой простую строку кода, но память не очень хорошая, часто используется для поиска,

Все еще запишите.

var
ExcelApp: OleVariant;
WorkBook: OleVariant;
RowCount: Integer;
iRow: Integer;

try
ExcelApp := CreateOleObject('Excel.Application');
except
SysFunObj.ShowInfo('没有安装EXCEL！');
exit;
end;

ExcelApp.Visible := false;
WorkBook := ExcelApp.WorkBooks.Open(OpenDialog1.FileName);
RowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
for iRow := 2 to RowCount do
begin
cdsImp.Append;
cdsImp.FieldByName('bigKind').Text := ExcelApp.Cells[iRow, 1].Value;
cdsImp.FieldByName('smallKind').Text := ExcelApp.Cells[iRow, 2].Value;
cdsImp.FieldByName('goodsName').Text := ExcelApp.Cells[iRow, 3].Value;
cdsImp.FieldByName('price').Text := ExcelApp.Cells[iRow, 4].Value;
cdsImp.Post;
end;