如何断定EXECL表中有多少列,多少行(100分)

F

fee

Unregistered / Unconfirmed
GUEST, unregistred user!
我打开一个EXCEL表时想将它转为DB库文件,但不知如何断定EXECL表中有多少列,多少行?
请帮忙;
另外如何在DELPHI中对EXCEL操作时使用EXCEL公式,比较我要用到筛选功能,如何选取出
”语文“>60 并且 总分>500 的人?
 
用ado中的jet engine可以把excel表当作数据库文件的,跟access那样操作就行了 :)
 
ExcelWorksheet1.Cells.Columns.Count //取得列数

至于过滤Excel取得的数据不应该使用Excel公式,可以取出Excel每行的数据,
进行判断,如果符合要求再转入数据库。
 
我以前做的程序的片断,多试试吧,不是很难的问题。

MsExcel := CreateOleObject('Excel.Application');
WBook := MsExcel.Application;
WBook.Visible := False;
wbook.workbooks.Open('c:/xxxx.xls');//打开Excel文档
WSheet := WBook.ActiveSheet;
for i := 1 to WSheet.Rows.count - 1 do
begin
Table1.Append; //Paradox表,其它表当然也可以了
for j := 1 to WSheet.Columns.Count do
begin
temp := wsheet.cells[i, j].value;
 
这个问题都被问烂了!
 
多人接受答案了。
 

Similar threads

回复
0
查看
919
不得闲
S
回复
0
查看
785
SUNSTONE的Delphi笔记
S
S
回复
0
查看
722
SUNSTONE的Delphi笔记
S
顶部