做教育行业营销类型的网站,徐州做网站多少钱,我要外包网官网,专注与开发网站的北京网络公司日常处理数据时#xff0c;经常需要#xff0c;从EXCEL表格中#xff0c;批量导入数据#xff0c;通过 XLSReadWriteII编程#xff0c;会很快导入。 但是#xff0c;客户提供的EXCEL表的字段#xff0c;数据格式#xff0c;字段的排序#xff0c;有很大的区别。因此经常需要从EXCEL表格中批量导入数据通过 XLSReadWriteII编程会很快导入。 但是客户提供的EXCEL表的字段数据格式字段的排序有很大的区别。因此能否做一个能够批量导入很有必要。 同时又需要将EXCEL表能够直接导入并显示在DBGridEh中。操作如下 一、使用四个控件 1、TClientDataSet 2、TDataSource 3、XLSReadWriteII, 4、DBGridEh 二、分析EXCEL表相关参数 约定Sheet0即第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;
beginif sEdit0.Text thenbeginshowmessage(请指定“收费标准”EXCEL文件);exit;end;XLS.Filename : sEdit0.Text;XLS.Read;iSheet:0;iTitleRow:StrToInt(sEdit1.Text)-1; // 0..niFirstRow:StrToInt(sEdit2.Text)-1;iEndRow:StrToInt(sEdit3.Text)-1;iFirstCol:TextToCol(sEdit4.Text);iEndCol:TextToCol(sEdit5.Text);// 数据集设置with ClientDataSet1 dobeginfor i:0 to iEndCol doFieldDefs.Add(ColToText(i), ftString, 60, False);CreateDataSet;end;DBGridEh1.DataSource:DataSource1;for i:0 to iEndCol doDBGridEh1.Columns[i].Width:100;
// DBGridEh1.Columns[2].Alignment : taCenter;
// DBGridEh1.Columns[3].Alignment : taRightJustify;ClientDataSet1.Edit;// 读入数据
// 读入TitleiRow:iTitleRow;with ClientDataSet1 dobeginAppend;for i:0 to iEndCol dobeginFieldByName(ColToText(i)).AsString:XLS.Sheets[iSheet].AsFmtString[i,iRow];end;Post;end;
// 读入数据iRow:iRow1;with ClientDataSet1 dobeginfor i:iFirstRow to iEndRow dobeginAppend;for j:0 to iEndCol dobeginFieldByName(ColToText(j)).AsString:XLS.Sheets[iSheet].AsFmtString[j,iRow];end;Post;iRow:iRow1;end;end;
// XLS.Free;
end;四、效果 通过DBGridEh模拟显示排序合并的标题将列名作为第一行再导入相应的数据
