怎样获得Excel的行数!!!急急急!!!(100分)

  • 主题发起人 主题发起人 morning75
  • 开始时间 开始时间
M

morning75

Unregistered / Unconfirmed
GUEST, unregistred user!
WS := Excel.Worksheets[1] as _Worksheet;
WS.Activate(LCID);
I := WS.Rows.Count;
这样得到是65536, Excel的最大行数.
 
好象是 sheet.UsedRange.Rows.Count
 
好象不行。如下所示:
I := WS.UsedRange[LCID].Rows.Count;
 
在这儿的问题当然是与Delphi有关的了:) ,将他转换为VBA应该不难。
var
r,c,col,row,colnum,rownum: Integer;
begin
col := ActiveSheet.UsedRange.Columns.Count;
row := ActiveSheet.UsedRange.Rows.Count;
colnum := ActiveSheet.UsedRange.Column;
rownum := ActiveSheet.UsedRange.Row;
end;
假设你使用了2C-->5E的范围,那么col=3,row = 4, colnum =3,
rownum := 2。
 
还是不明白?
再指点一下!!
 
怎么没人回答呀???????
 
请结束或继续
 
没人会??????
 
ExcelWorksheet1.Rows
 
usedrows:=ExcelWorksheet1.UsedRows[1].Rows.count
 
今天我也碰到了这个问题!!!!

有没有正确答案!!!请块回答!!
 
ExcelWorksheet1.Rows
count
 
用 ado连接通过数据库可行否?
 
MSExcel.ActiveSheet.UsedRange.Rows.Count
 
我试过
MSExcel.ActiveSheet.UsedRange.Rows.Count
新建的Excel文件是可以的但打开的文件就不行

你想做什么?
是报表吗?
你可以用模板的方法,在首行a1,a2定义行和列,填充完数据后将首行删除
 
我正准备用,谁有办法,谢谢
 
MSExcel.ActiveSheet.UsedRange.Rows.Count
 
MSExcel.ActiveSheet.UsedRange.Rows.Count

 
to sword_liu:
你真黑,呵呵
 
Maxr :=ExlApp.WorkSheets[1].UsedRange.Rows.Count;
 
后退
顶部