nativeexcel将excel导入数据集

最新推荐文章于 2024-07-02 11:28:53 发布

weixin_30772105

最新推荐文章于 2024-07-02 11:28:53 发布

阅读量306

点赞数

原文链接：http://www.cnblogs.com/hnxxcxg/p/7905244.html

版权

nativeexcel将excel导入数据集

uses nexcel;

procedure Tfgoods.daoruExecute(Sender: TObject);
var
od: TOpenDialog;
wb: IXLSWorkbook;
ws: IXLSWorksheet;
irow: integer;
v: Variant;
begin
od := TOpenDialog.Create(nil);
od.Filter := 'xls|*.xls';
wb := TXLSWorkbook.Create;
if od.Execute then
begin
wb.Open(od.FileName);
ws := wb.WorkSheets[1];
if ws.UsedRange.Rows.Count = 0 then
Exit;
// 商品名称条码进价售价单位
for irow := 2 to ws.UsedRange.Rows[1].Count - 2 do // 遍历行
begin
ADOQuery1.Append; // 追加
ADOQuery1.FieldByName('goodsid').Text := GetGoodsId;
v := ws.UsedRange.Cells[irow, 1].Value;
if not VarIsNull(v) then
ADOQuery1.FieldByName('goodsname').Text := v;
v := ws.UsedRange.Cells[irow, 2].Value;
if not VarIsNull(v) then
ADOQuery1.FieldByName('barcode').Text := v;
v := ws.UsedRange.Cells[irow, 3].Value;
if not VarIsNull(v) then
ADOQuery1.FieldByName('jingjia').Text := v;
v := ws.UsedRange.Cells[irow, 4].Value;
if not VarIsNull(v) then
ADOQuery1.FieldByName('shoujia').Text := v;
v := ws.UsedRange.Cells[irow, 5].Value;
if not VarIsNull(v) then
ADOQuery1.FieldByName('unitname').Text := v;
ADOQuery1.Post;
end;
end;
wb.Close;
od.Free;
end;