导入excel数据

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

巴特西

导入excel数据

最新文章

热门文章