请问如何知道Excel里面有多少页,每个页里面有多少行,每行有多少列有值!或者如何把所有的数据一项一项都读出来就可以!
解决方案 »
- 【立志贴】以后俺每天至少回复10贴技术贴,大家监督
- 如何控制XP系统服务?
- 急聘 软件开发工程师 精通Delphi
- IdClientTcp和IDClientUdp的代理设置,上Internet
- 据说比较难。关于DBGrid的
- 哎,人气越来越差,把分散掉算了! (3)
- 请问各位大侠,TIntegerProperty类在哪个单元中定义的?在线等你来拿分......
- ☆☆☆请问谁有Delphi很好的界面程序,能否发过来一个看看!!!☆☆☆
- 请问如何才能获得系统有几个驱动器?
- 用Delphi编的程序是不是只要一个EXE文件,在其他没装Delphi的机器上就可以运行了?
- 帮忙想一个数据结构,合适就给分![数据结构醒目]
- Delphi如何调用类型为unsigned char*的函数的dll??
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
begin
ExcelApplication1 :=TExcelApplication.Create(nil);
ExcelWorksheet1 :=TExcelWorksheet.Create(nil);
ExcelWorkbook1 :=TExcelWorkbook.Create(nil); ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Open(Trim (edtFileName.Text),EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Activesheet as _Worksheet);
//判断Excel表里有多少条数据
for i:=1 to 65535 do
begin
strPerson_No:=Trim(Excelworksheet1.Cells.Item[i,1]);
if strPerson_No='' then
//begin
Break;
//end;
end;
................................................................