前提条件:先要安装好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;