TClientDataSet 模拟 EXCEL表

    日常处理数据时，经常需要，从EXCEL表格中，批量导入数据，通过 XLSReadWriteII编程，会很快导入。

    但是，客户提供的EXCEL表的字段，数据格式，字段的排序，有很大的区别。因此，能否做一个能够批量导入，很有必要。

    同时，又需要将EXCEL表能够，直接导入并显示在DBGridEh中。操作如下

    一、使用四个控件：

    1、TClientDataSet，

    2、TDataSource，

    3、XLSReadWriteII,

    4、DBGridEh

    二、分析EXCEL表相关参数

   约定Sheet=0，即第1个表。

    三、创建ClientDataSet的字段

procedure TEXCEL_To_Staff_Frm.Button19Click(Sender: TObject);
var sDate,SS,S1,S2,S3,S4,S5,S6,S7,S8,S9:string;
    T:boolean;
  iRow,i,j,iSheet,iTitleRow,iFirstRow,iEndRow,iFirstCol,iEndCol:integer;
begin
  if sEdit0.Text='' then
  begin
    showmessage('请指定“收费标准”EXCEL文件！');
    exit;
  end;
  XLS.Filename := sEdit0.Text;
  XLS.Read;
  iSheet:=0;
  iTitleRow:=StrToInt(sEdit1.Text)-1;   // 0..n
  iFirstRow:=StrToInt(sEdit2.Text)-1;
  iEndRow:=StrToInt(sEdit3.Text)-1;
  iFirstCol:=TextToCol(sEdit4.Text);
  iEndCol:=TextToCol(sEdit5.Text);

//  数据集设置
  with ClientDataSet1 do
  begin
    for i:=0 to iEndCol do
      FieldDefs.Add(ColToText(i), ftString, 60, False);
    CreateDataSet;
  end;
  DBGridEh1.DataSource:=DataSource1;
  for i:=0 to iEndCol do
    DBGridEh1.Columns[i].Width:=100;
//  DBGridEh1.Columns[2].Alignment := taCenter;
//  DBGridEh1.Columns[3].Alignment := taRightJustify;
  ClientDataSet1.Edit;

// 读入数据
// 读入Title
  iRow:=iTitleRow;
  with ClientDataSet1 do
  begin
    Append;
    for i:=0 to iEndCol do
    begin
      FieldByName(ColToText(i)).AsString:=XLS.Sheets[iSheet].AsFmtString[i,iRow];
    end;
    Post;
  end;
// 读入数据
  iRow:=iRow+1;
  with ClientDataSet1 do
  begin
    for i:=iFirstRow to iEndRow do
    begin
      Append;
      for j:=0 to iEndCol do
      begin
        FieldByName(ColToText(j)).AsString:=XLS.Sheets[iSheet].AsFmtString[j,iRow];
      end;
      Post;
      iRow:=iRow+1;
    end;
  end;
//  XLS.Free;
end;

     四、效果

     通过DBGridEh模拟显示，排序合并的标题，将列名作为第一行，再导入相应的数据：