请教大侠一个关于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;
[解决办法]
那你要判断是不是空白行啊
[解决办法]