怎样得到Excel中的行数和列数？(50分)

丰

丰臣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-17

• #1

怎样得到Excel中的行数和列数？谢谢。

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-17

• #2

什么意思?
如果要知道Excel的工作表的行,列数用
sheet.Rows.Count
Sheet.Columns.Count
如果要知道Excel打开的xls文件的行列数用
sheet.UsedRange.Rows.Count
sheet.UsedRange.Columns.Count

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-18

• #3

我上面不是说了吗.
sheet.UsedRange.Rows.Count
sheet.UsedRange.Columns.Count

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-19

• #4

;;

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #5

是是是，就是bluerain的说法对

 

T

tobby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #6

e

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #7

对

 

T

tzjxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #8

那怎么可以知道打开的xls文件一共有几个工作表呢？

 

M

mylover

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #9

给你转一篇文章:

首先建立一個TExcelApplication控件﹐設名為EA1,
var aSheet:variant;
i,j:integer;
begin
EA1.Connect;
EA1.Workbooks.Open('C:/yourexcel.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,1);
//這是打開某個特定文件
// EA1.Workbooks.Add(xlWBATWorkSheet,0); 直接新增一個Excel文件
EA1.Visible[0]:=False;
aSheet:=EA1.Worksheets.Item[1];
x:=0;
for i:=1 to yourdata.RecordCount do
for j:=1 to yourdata.Fieldcount do
asheet.Cells[i,j].Value:=yourdata.fields[j-1].asstring;
SaveDialog.Execute;
if SaveDialog.FileName<>'noname' then begin
aSheet.SaveAs(SaveDialog.FileName);
ShowMessage('文件已保存為'+SaveDialog.FileName);
end;
aSheet.Application.Quit;
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #10

wbook.sheets.count


procedure TForm1.Button1Click(Sender: TObject);
var
MsExcel,wBookleVariant;
begin
MsExcel:= CreateOleObject('Excel.Application');
WBook:=MsExcel.Application;
wbook.workbooks.add;//可以打开文档
WBook.Visible:=True;
showmessage(inttostr(wbook.sheets.count));
end;

 

R

rouse-65

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-24

• #11

jsxjd只说了工作表的个数,但没有说明一个工作表中的行列数如何取得.

 

N

ninglng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #12

Excel的工作表的行,列数用
sheet.Rows.Count
Sheet.Columns.Count
Excel打开的xls文件的行列数用
sheet.UsedRange.Rows.Count
sheet.UsedRange.Columns.Count

 

D

dearhms

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #13

myworksheet:=excelapp.workbooks[1].worksheets[1];
col:=myworksheet.usedrange.columns.count;
row:=myworksheet.usedrange.rows.count;

 

W

wangzhi2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-03

• #14

uses ComObj;
var X: Variant;
begin
X:=CreateOLEObject('Excel.Application');//创建对象
X.WorkBooks.Open(XLSName);//打开指定的表
showmessage(Format('总行数=%d',[X.ActiveSheet.usedRange.Rows.count]);
X.quit;
X:=Unassigned; //释放VARIANT变量
end;

 

舞

舞鹤

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-04

• #15

看一下这个
http://www.delphibbs.com/keylife/iblog_show.asp?xid=6314
看对你有没有帮助