DELPHI操作EXCEL

uses Excel2000;

 

var

Temp_Worksheet: _WorkSheet;
  Temp_WorkBook: _WorkBook;
  i:integer;
  strB,strL,FileName:String;
  ExcelApplication1: TExcelApplication;
  ExcelWorksheet1: TExcelWorksheet;
  ExcelWorkbook1: TExcelWorkbook;
  LCID: Integer;

begin

 

ExcelApplication1 := TExcelApplication.Create(nil);
    ExcelWorksheet1 := TExcelWorksheet.Create(nil);
    ExcelWorkbook1 := TExcelWorkbook.Create(nil);
    ExcelApplication1.Disconnect;
    ExcelApplication1.Connect;   
     LCID := GetUserDefaultLCID;

  FileName:='D://08.xls';
  Temp_WorkBook := ExcelApplication1.Workbooks.Open(FileName,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,LCID) as _WorkBook;
  ExcelWorkBook1.ConnectTo(Temp_WorkBook);

  Temp_Worksheet := ExcelWorkbook1.Sheets.Item[1] as _WorkSheet;
  ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);

  for i:=2 to ExcelWorkSheet1.Rows.Count do
  begin
      Application.ProcessMessages;
      strL:= ExcelWorkSheet1.Cells.Item[i,4];
      strB:= ExcelWorkSheet1.Cells.Item[i,5];
      ....
      ExcelWorkSheet1.Cells.Item[i,6]:= '';
      ExcelWorkSheet1.Cells.Item[i,7]:= '';
      objPoint:=nil;
      end
      else
        break;
  end;
  ExcelApplication1.Save;
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;
  ExcelApplication1.Free;
  ExcelWorksheet1.Free;
  ExcelWorkbook1.Free;

 

end;