delphi 如何得到一个excel文件的sheet中的行、列的数目(50分)

J

jlmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #1

样例如下：

var v,sheet:variant;
maxrow:integer;
begin
v:=createoleobject('excel.Application');
v.visible:=false;
v.Workbooks.Open('sample.xls');
sheet:=excelf.workbooks[1].worksheets[1];

maxrow:=sheet.row;
^^^^^^^^^^^^^^^
在这里出错了，那么该如何得到这个sheet的行、列的数目呢？

end;

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #2

gen.

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-17

• #3

maybe
sheet:=v.workbooks[1].worksheets[1];
maxrow:=sheet.rows.row;

 

J

jlmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #4

接受答案了.

 

J

jlmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #5

sorry,

maxrow:=sheet.rows.row好象还不行

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #6

maybe
maxrow:=sheet.rows.count;(i try it get maxrow=65536
do this value you need)

 

J

jlmouse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #7

这个我试过了，得到的65536是整个SHEET的最大的行数，不是数据区
的行数，难道真的没有这样的属性吗？

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #8

好象只能是边历worksheet ,判断value是否为空。
For i = 0 to columns.count-1
for j = 0 to rows.count-1
With Worksheets("Sheet1").Cells(i, j) do
begin
if value<>'' then ....
end;