首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

请问大侠一个关于delphi7 Excel文档导入的有关问题

2012-03-22 
请教大侠一个关于delphi7 Excel文档导入的问题比如我有一个Excel文档,里面有1000行,但是只有50行是有数据

请教大侠一个关于delphi7 Excel文档导入的问题
比如我有一个Excel文档,里面有1000行,但是只有50行是有数据的。
我在导入Excel时,并非是导入到第50行,就结束了,而是连空白行也一起导进去?
这是何原因?
还请各位不吝赐教。
  代码如下:
  for i := 3 to sheet.usedrange.rows.count do
  begin
  ManageData.ADAllMember.Append;
  for j := 1 to sheet.usedrange.columns.count do
  begin
  if J > Length(arrField) then Break;
  temp := sheet.cells[i, j].value;
  ManageData.ADAllMember.FieldByName(arrField[J - 1].FieldName).AsString := temp;
  end;
  //进度条
  inc(ProgressValue);
  Application.ProcessMessages;
  ProgressBar1.Position := ProgressValue;
  end;
  ManageData.ADAllMember.Post;
  exls.quit;

[解决办法]
那你要判断是不是空白行啊
[解决办法]

探讨
请问 duck04551 大侠
代码里temp := sheet.cells[i, j].value; 是一个单元格的值。

然而如何取一行的值,这样就可以判断是不是到了空白行 ??

[解决办法]
我刚才用比较笨的方法,在数据表里面(有效数据4423行)手动把空白记录删掉,然后再通过软件将这些资料导出到Excel文档bookRecord.xls 。清除dxDBGrid上的数据,再将刚才的bookRecord.xls 导入,这样就正常了。
郁闷啊,不知道为什么会这样的


这是聪明的方法!!
数据源都没整理好,就去干后面的工作,那才是笨。
excel有个毛病,你只要向下移动了表格行数,即使你未输入任何字符,它也认为当前数据总行数就到你移动的行数了,也就是你判断记录数错误的原因。

热点排行