如何得到EXCEL表的行数(50分)

S

seilfer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-08

• #1

有没有什么函数？ 要查的表极不规范，几乎每列都有空缺的项

 

D

ddntyz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #2

你的意思是想要得到所有使用过的行数吗？
我可以做到。

 

A

arm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #3

Excel.Range.SpecialCells(xlCellTypeLastCell,Value)

 

D

ddntyz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #4

Maxc :=ExlApp.WorkSheets[1].UsedRange.Columns.Count;
Maxr :=ExlApp.WorkSheets[1].UsedRange.Rows.Count;

这样可以得到使用过的行，列数。中间的空缺也会显示出来的。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #5

MsExcel := CreateOleObject('Excel.Application');
WorkBook := MsExcel.Application;
if openDialog1.Execute then
Fname:=openDialog1.FileName;
WorkBook.WorkBooks.Open(Fname);
WorkBook.Visible := False;
MsExcel.Visible := True;
WorkSheet := WorkBook.ActiveSheet;
row:=WorkSheet.UsedRange.Rows.count;
col:=WorkSheet.UsedRange.Columns.Count;

 

S

seilfer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #6

多人接受答案了。