通用的将Excel导入数据集的方法

最新推荐文章于 2023-09-19 10:00:05 发布
最新推荐文章于 2023-09-19 10:00:05 发布
阅读量2.9k 收藏 2
点赞数 1
分类专栏： 软件开发 文章标签： excel integer string exception function delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/baronyang/article/details/7048563
版权
开发中经常有需要将Excel导入数据集的需要，但每张Excel的栏位都会不同，常规的做法有两种：
一、针对每一张Excel的栏位与数据集栏位位置在程序中写好，一一对应导入
二、针对每一张Excel的栏位与数据集栏位配置好应用参数
这两种方法都比较麻烦，很不灵活，所以我写了一个比较通用的方法，只要符合以下条件就可以直接使用：

 1、Excel第一行是栏位标题，第二行开始是数据

 2、应用程序数据集显示控件如(dbgrid,dxdbgrid等)名称与Excel首行标题名一致（顺序可以不同，数量也可以不同,如Excel的栏位：工号，姓名，年龄；显示控件栏位：姓名，工号，年龄，创建时间；这也是可以的)

以下为delphi 代码： 
procedure ExportExcelToCDS(mygrid: TdxDBGrid; filename: string);
var
  i,j,row,col,ValidFNCount:integer;
  MyExcel,Sheet:Variant;
  str1,Prompt,ts:string;
  fieldnames:array of string;
  fieldList:array of string;
  ColIndex:array of Integer;//Excel列序号
  tmpcds:TDataSet;
  tmpds:TDataSource;
  CelValue:string;

  //搜索Excel的标题是否有对应到数据表中的字段
  procedure SetFieldList;
  var
    t,t2,js:Integer;
    str1,str2:string;
  begin
    //搜索Excel中的有效字段
    for t:=1 to col do
    begin
      str1:=StringReplace(Sheet.Cells[1,t].Text,' ','',[rfReplaceAll]);
      for t2:=0 to mygrid.ColumnCount-1 do
      begin
        str2:=StringReplace(mygrid.Columns[t2].Caption,' ','',[rfReplaceAll]);
        if str1=str2 then
        begin
          ValidFNCount:=ValidFNCount+1;
          Break;
        end;
      end;
    end;
    SetLength(fieldList,ValidFNCount);
    SetLength(ColIndex,ValidFNCount);
    js:=0;
    for t:=1 to col do
    begin
      str1:=StringReplace(Sheet.Cells[1,t].Text,' ','',[rfReplaceAll]);
      for t2:=0 to mygrid.ColumnCount-1 do
      begin
        str2:=StringReplace(mygrid.Columns[t2].Caption,' ','',[rfReplaceAll]);
        if str1=str2 then
        begin
          fieldList[js]:=mygrid.Columns[t2].FieldName;//字段
          fieldnames[js]:=mygrid.Columns[t2].Caption;//字段显示名称
          ColIndex[js]:=t;//Excel列序号1...
          js:=js+1;
          Break;
        end;
      end;
    end;
  end;

  function CheckField:string;
  var
    t:Integer;
    str1:string;
  begin
    for t:=1 to col do
    begin
      str1:=stringreplace(Sheet.Cells[1,t].Text,' ','',[rfReplaceAll]);
      if str1=fieldnames[i] then
      begin
        Break;
      end;
      Result:=str1;
    end;
  end;
  //Excel列名至少有一个与grid中的字段相对应,是否不执行数据追加操作
  function CheckFieldArray:Boolean;
  var
    t,t2:integer;
  begin
    t2:=0;
    for t:=0 to col-1 do
    begin
      if Trim(fieldList[t])<>'' then
      begin
        t2:=1;
        Break;
      end;
    end;
    if t2=0 then
      Result:=true
    else
      Result:=False;
  end;
begin
  if UpperCase(ExtractFileExt(filename))<>uppercase('.xlsx') then
  begin
    ExportXLSToCDS(mygrid,filename);
    Exit;
  End;
    //支持Excel2007格式
  tmpcds:=mygrid.DataSource.DataSet;
  tmpds:=mygrid.DataSource;
  try
    MyExcel:=CreateOleObject('Excel.Application');
  except
    ts:='请安装Excel';
    MessageDlg(ts,mtWarning,[mbok],0);
    Exit;
  end;
  tmpcds.DisableControls;
  SetLength(fieldnames,mygrid.ColumnCount);
  try
    for i:=0 to mygrid.ColumnCount-1 do
    begin
      if mygrid.Columns[i].Visible then
         fieldnames[i]:=stringreplace(mygrid.Columns[i].Caption,' ','',[rfReplaceAll]);
    end;
    str1:=CheckField;
    if str1<>'' then
    begin
      MessageDlg('Excel中的'+str1+'不正确',mtError,[mbOK],0);
      Exit;
    end;
    MyExcel.Workbooks.open(filename);
    Sheet:=MyExcel.ActiveSheet;
    row:=Sheet.UsedRange.Rows.Count;//行数
    col:=Sheet.UsedRange.Columns.Count;//列数
    if row<=1 then
    begin
      Prompt:='Excel中至少有一条数据'+#13+'第一行是标题,其它行为数据行'+#13+'条件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    if col<=1 then
    begin
      Prompt:='Excel中至少有一列数据'+#13+'条件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    SetFieldList;
    if CheckFieldArray then
    begin
      Prompt:='Excel中第一行中的列名至少有一个与列表中栏位相同'+#13+'条件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    Screen.Cursor:=crHourGlass;
    if not tmpcds.Active then
      tmpcds.Open;
    for i:=2 to row do
    begin
      Application.ProcessMessages;
      CelValue:=Trim(Sheet.Cells[i,0].Text);
      if (CelValue='') then Continue;
      tmpcds.Append;
      for j:=0 to ValidFNCount-1 do
      begin
        Application.ProcessMessages;
        CelValue:=Trim(Sheet.Cells[i,ColIndex[j]].Text);
        try
          //导入的数据文本不可以有公式，否则会出错
          if (CelValue<>'') then
          begin
            case tmpcds.FieldByName(fieldList[j]).DataType of
              ftString:
                 tmpcds.FieldByName(fieldList[j]).AsString:=CelValue;
              ftSmallint,ftInteger,ftWord,ftBoolean,ftFloat,ftCurrency,
              ftBCD,ftBytes:
                tmpcds.FieldByName(fieldList[j]).Value:=StrToFloat(CelValue);
              ftDate,ftTime,ftDateTime:
                tmpcds.FieldByName(fieldList[j]).AsDateTime:=Sheet.Cells[i,ColIndex[j]].Value;
            end;
          end;
        except
          on E:Exception do
          begin
            MessageDlg(E.Message+#13+'写入字段'+fieldList[j]+'时出错,写入内容:'
               +vartostr(CelValue)+#13+'Excel出错行列：'+inttostr(i)+','+inttostr(j),mtError,[mbOK],0);
          end;
        end;
      end;
      tmpcds.Post;
    end;
  finally
    tmpcds.EnableControls;
    MyExcel.Workbooks.close;
    MyExcel.quit;
    Sheet:=Unassigned;
    MyExcel:=Unassigned;
    Screen.Cursor:=crDefault;
    MessageDlg('数据导入完毕',mtInformation,[mbOK],0);
  end;
end;

以上方法通过创建Excel对象导入其数据的，未使用第三方控件，其传入参数dxgrid可以改成您应用程序自已的控件类型，只要其带有datasource.dataset属性即可，比较灵活，但数据量比较大时可能比较慢，所以我做了一下改进，使用第三方控件读取Excel，再执行导入操作，这样速度非常快，以下是我改进的使用TcxSpreadSheet控件读取Excel的方法：

procedure ExportXLSToCDS(mygrid:TdxDBGrid;filename:string);//将excel导入数据集
var
  i,j,row,col,ValidFNCount:integer;
  MyExcel:TcxSpreadSheet;
  str1,Prompt:string;
  fieldnames:array of string;
  fieldList:array of string;
  ColIndex:array of Integer;//Excel列序号
  tmpcds:TDataSet;
  tmpds:TDataSource;
  CelValue:string;

  //搜索Excel的标题是否有对应到数据表中的字段
  procedure SetFieldList;
  var
    t,t2,js:Integer;
    str1,str2:string;
  begin
    //搜索Excel中的有效字段
    for t:=0 to col-1 do
    begin
      str1:=StringReplace(MyExcel.Sheet.getcellobject(t,0).Text,' ','',[rfReplaceAll]);
      for t2:=0 to mygrid.ColumnCount-1 do
      begin
        str2:=StringReplace(mygrid.Columns[t2].Caption,' ','',[rfReplaceAll]);
        if str1=str2 then
        begin
          ValidFNCount:=ValidFNCount+1;
          Break;
        end;
      end;
    end;
    SetLength(fieldList,ValidFNCount);
    SetLength(ColIndex,ValidFNCount);
    js:=0;
    for t:=0 to col-1 do
    begin
      str1:=StringReplace(MyExcel.Sheet.getcellobject(t,0).Text,' ','',[rfReplaceAll]);
      for t2:=0 to mygrid.ColumnCount-1 do
      begin
        str2:=StringReplace(mygrid.Columns[t2].Caption,' ','',[rfReplaceAll]);
        if str1=str2 then
        begin
          fieldList[js]:=mygrid.Columns[t2].FieldName;//字段
          fieldnames[js]:=mygrid.Columns[t2].Caption;//字段显示名称
          ColIndex[js]:=t;//Excel列序号1...
          js:=js+1;
          Break;
        end;
      end;
    end;
  end;

  function CheckField:string;
  var
    t:Integer;
    str1:string;
  begin
    for t:=0 to col-1 do
    begin
      str1:=stringreplace(MyExcel.Sheet.getcellobject(t,0).Text,' ','',[rfReplaceAll]);
      if str1=fieldnames[i] then
      begin
        Break;
      end;
      Result:=str1;
    end;
  end;
  //Excel列名至少有一个与grid中的字段相对应,是否不执行数据追加操作
  function CheckFieldArray:Boolean;
  var
    t,t2:integer;
  begin
    t2:=0;
    for t:=0 to col-1 do
    begin
      if Trim(fieldList[t])<>'' then
      begin
        t2:=1;
        Break;
      end;
    end;
    if t2=0 then
      Result:=true
    else
      Result:=False;
  end;

begin
  tmpcds:=mygrid.DataSource.DataSet;
  tmpds:=mygrid.DataSource;
  MyExcel:=TcxSpreadSheet.Create(nil);
  tmpcds.DisableControls;
  SetLength(fieldnames,mygrid.ColumnCount);
  try
    for i:=0 to mygrid.ColumnCount-1 do
    begin
      if mygrid.Columns[i].Visible then
         fieldnames[i]:=stringreplace(mygrid.Columns[i].Caption,' ','',[rfReplaceAll]);
    end;
    str1:=CheckField;
    if str1<>'' then
    begin
      MessageDlg('Excel中的'+str1+'不正确',mtError,[mbOK],0);
      Exit;
    end;
    MyExcel.LoadFromFile(filename);
    row:=MyExcel.Sheet.ContentRowCount;//行数
    col:=MyExcel.Sheet.ContentColCount;//列数
    if row<=1 then
    begin
      Prompt:='Excel中至少有一条数据'+#13+'第一行是标题,其它行为数据行'+#13+'条件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    if col<=1 then
    begin
      Prompt:='Excel中至少有一列数据'+#13+'条件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    SetFieldList;
    if CheckFieldArray then
    begin
      Prompt:='Excel中第一行中的列名至少有一个与列表中栏位相同'+#13+'条件不符,操作取消';
      MessageDlg(Prompt,mtWarning,[mbOK],0);
      Exit;
    end;
    Screen.Cursor:=crHourGlass;
    if not tmpcds.Active then
      tmpcds.Open;
    for i:=1 to row-1 do
    begin
      Application.ProcessMessages;
      CelValue:=Trim(MyExcel.Sheet.getcellobject(ColIndex[0],i).DisplayText);
      if (CelValue='') then Continue;
      tmpcds.Append;
      for j:=0 to ValidFNCount-1 do
      begin
        Application.ProcessMessages;
        CelValue:=MyExcel.Sheet.getcellobject(ColIndex[j],i).DisplayText;
        try
          //导入的数据文本不可以有公式，否则会出错
          if VarToStr(CelValue)<>'' then
          begin
            case tmpcds.FieldByName(fieldList[j]).DataType of
              ftString:
                 tmpcds.FieldByName(fieldList[j]).AsString:=CelValue;
              ftSmallint,ftInteger,ftWord,ftBoolean,ftFloat,ftCurrency,
              ftBCD,ftBytes:
                tmpcds.FieldByName(fieldList[j]).Value:=StrToFloat(CelValue);
              ftDate,ftTime,ftDateTime:
                tmpcds.FieldByName(fieldList[j]).AsDateTime:=MyExcel.Sheet.getcellobject(ColIndex[j],i).DateTime;
            end;
          end;
        except
          on E:Exception do
          begin
            MessageDlg(E.Message+#13+'写入字段'+fieldList[j]+'时出错,写入内容:'
               +vartostr(CelValue)+#13+'Excel出错行列：'+inttostr(i)+','+inttostr(j),mtError,[mbOK],0);
          end;
        end;
      end;
      tmpcds.Post;
    end;
  finally
    tmpcds.EnableControls;
    Screen.Cursor:=crDefault;
    FreeAndNil(MyExcel);
    MessageDlg('数据导入完毕',mtInformation,[mbOK],0);
  end;
end;
注：我使用的TcxSpreadSheet版本比较低，只支持.xls格式.各种开发工具使用以上方法只要将代码稍做改动即可。

人鱼传说
关注
  • 1
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
把excel转化成dataset
————的专栏
10-07 895
//创建Application对象 Microsoft.Office.Interop.Excel.Application xApp = new Microsoft.Office.Interop.Excel.ApplicationClass(); xApp.Visible = false; //得到WorkBook对
将excel导入数据集
IT人生
03-30 1637
要求:需引用excel2000单元,excel文件第一行为标题特点:excel文件的标题与dbgrid的标题名称一致,顺序可以不同procedure ExportExcelToCDS(mygrid:TdxDBGrid;filename:string);//将excel导入数据集var i,j,row,col,ValidFNCount:integer; ExcelApplic
基于EasyExcel的配置型导入导出V1.0
呜呜老司机的博客家园
04-19 470
前言 想自己写一个可以很方便的在工作中使用的配置多sheet页，复杂表头之类的导出导入工具类，第一版比较简单，还得受限制于实体类的配置，将来在第二第三版，或者更多版本中考虑实现一下全配置全自动导入导出。如果电脑屏幕前的你恰好能看到这篇文章，又恰好有些想法，欢迎评论区留言~ 导出： /** * 导出excel(第一版) * @param response * @param dataList sheet页数据集合 * @param clazzList 实体类集合 * @param fileNa
通用excel导入/导出 (poi)
09-09
在这个"通用excel导入/导出 (poi)"的示例中，我们主要关注的是Excel文件的处理，特别是如何利用POI库进行数据的导入和导出。下面将详细介绍这个过程中的关键知识点。 首先，让我们了解一下Apache POI。它是Apache...
将SQL server数据写入excel表
06-16
在给定的项目中，"将SQL server数据写入excel表"是一个具体的实现，它利用C++ Builder 2010这一集成开发环境，将数据从SQL Server数据库导出并存储到Excel表格中。这涉及到多个技术层面，包括数据库连接、查询执行、...
Objects Excel数据导入及字段的赋值
12-14
这个方法需要指定数据集的名称、类型（如点、线、面）以及存储数据的路径。 接下来，我们要从Excel表中读取点的X、Y坐标。Excel表格通常以行和列的形式组织数据，我们可以使用.NET框架中的Microsoft.Office.Interop...
c#导出、导入Excel表格数据方法封装
05-15
通用类数据导出excel方法，包含读取DataTable数据集进行导出到Excel文档中， * 获取DataTable数据集合插入Excel表格中的指定行和列,并进行单元格样式的控制以及大于指定的 * 【65535】行数则需要创建一个新的sheet...
数据分页导入Excel
09-21
数据分页导入Excel是一项在大数据处理中常见的任务，它涉及到如何高效地从数据库中提取大量数据并将其组织成Excel格式。在这个过程中，我们通常会利用Java的Apache POI库，这是一个强大的工具，允许开发者创建、修改...
导入数据三种方式总结
weixin_43288804的博客
07-29 667
读取图数据的三种方式，根据不同的模型的需要调整
python之导入数据集
weixin_45919895的博客
11-23 2万+
csv文件 导入numpy和pandas库 #导入numpy和pandas库 import numpy as np import pandas as pd 从本地文件中载入数据 2.1.相对路径 #载入数据 #1.相对路径 df = pd.read_csv('train.csv') 2.2.绝对路径 #2.绝对路径 #在|前多加一个\；使用engine='python'打开路径中含有中文的文件 df = pd.read_csv('E:\\python_pycharm _file\\数据分析\\s
Python机器学习从入门到高级：导入数据（包含数据库连接）
最新发布
weixin_68789096的博客
09-19 1040
是我们进行数据分析的第一步，本文主要介绍以下几个常用的方面导入数据集。
三分钟教你Python数据分析—数据导入，小白基础入门必看
weixin_55154866的博客
08-19 3165
今天我们来学习数据导入，需要使用到Pandas模块。模块相当于是一个文件夹，它能够用于存放同个主题相关的Python代码段，包括定义函数、类和变量。例如将数据处理相关的函数都存放在一个模块里，将数据分析相关的函数都存放在一个模块里，将数据可视化相关的函数都存放在一个模块里。这样就可以在其他有需要的地方进行调用，在编写程序的时候，经常需要引用其它模块。你可以将Excel菜单中的每个选项卡 看成是一个模块，例如数据选项卡下就包含了数据获取和转换、连接、排序和筛选、数据工具等功能。
delphi读取Excel导入数据库
qq_34604490的博客
02-12 588
delphi读取Excel导入数据库
将excel表格数据转为数据库数据
sqlgao22的博客
08-26 9187
将excel表格数据转为数据库数据 使用的是POI,思路是:将excel的数据全部取出封装在实体类中,然后使用jdbc将数据写入数据库. 使用的依赖 <dependency> <groupId>mysql</groupId> <artifactId>mysql-connector-java</...
如何使用excel批量导入数据到数据库？看这一篇就够了！超详细
热门推荐
酷酷的馫博客
08-10 2万+
使用excel向数据库批量添加数据
Python实现将excel的文字类数据划分为训练集、验证集与测试集。
laixiaokikjjhmjm的博客
01-14 4213
文章目录一、初始数据类型二、步骤代码1.引入库2.数据要求3.读入数据总结 一、初始数据类型 使用数据样例为excel表中的文本类型，一共两列，第一列为文本数据，第二列为数据标签，为数字。 示例： 数据文本 标签 AAAAAAAAA 1 BBBBBBB 2 CCCCCCCCCC 1 DDDDDD 3 … … 二、步骤代码 1.引入库 代码如下（示例）： from sklearn.model_selection import train_test_split impor.
R语言数据导入导出指南
- **二进制文件**：R可以将数据保存为二进制格式，例如使用`save`和`load`函数，这在处理大型数据集时更有效率。 - **关系数据库**：R可以通过`DBI`和特定数据库的包（如`RMySQL`，`RODBC`）将数据导入或导出到...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值