导入excel数据

程序中经常要用到导入excel数据的功能。其实通过OLE操作Excel就简单的几行代码，但记性不好，经常要用经常要找，还是作篇笔记吧。

前提是系统中先要安装好EXCEL软件。

function ImportDataFromExcel:Boolean;var  ExcelApp: OleVariant;  WorkBook: OleVariant;  RowCount: Integer;  iRow: Integer;begin  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;  Result := True;end;