var 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; ................................................................
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;
................................................................