Delphi之操作Excel实践

 1.连接一个已经存在的Excel文件。

exclplctn1.Connect;//连接到Excel应用程序
//打开fileName代表的Excel文件
exclplctn1.Workbooks.Open(fileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);
exclwrkbk1.ConnectTo(exclplctn1.Workbooks.Item[1]);  //连接到已经打开的第一个Excel文件，可以同时打开多个，第二个打开的文件用exclplctn1.Workbooks.Item[2]表示。
exclwrksht1.ConnectTo(exclwrkbk1.Worksheets.Item[1] as _Worksheet);//连接到Excel文件的第一个sheet，第二个sheet用exclwrkbk1.Worksheets.Item[2]表示

 

2.Excel文件的一些操作：

  exclwrksht1.Cells.NumberFormatLocal := '@'; //将所有单元格设置为文本类型
  exclwrksht1.Name := '表与其编号关系';//设置sheet的名称
  exclwrksht1.Cells.Item[1, 13] := '事件名称';//设置第一行第十三列的值
  rowCount := exclwrksht1.UsedRange[1].Rows.Count;//获得Excel中使用区域的行数
  columnCount := exclwrksht1.UsedRange[1].Columns.Count;;//获得Excel中使用区域的列数
 

 

3.保存已经修改的Excel文件：

    exclwrkbk1.Save; //保存修改的excel文件
    exclwrkbk1.Close;

4.断开和Excel文件的连接

    exclwrksht1.Disconnect;//断开和sheet的连接
    exclwrkbk1.Disconnect;//断开和Excel文件的连接
    exclplctn1.Quit;
   exclplctn1.Disconnect;//断开和Excel应用程序的连接

5.在指定位置新建一个Excel，如果已经存在就覆盖

  wkBook: _WorkBook;
  LCID: Integer;
  
  //连接到Excel，添加一个文件
  exclplctn1.Connect;
  LCID := GetUserDefaultLCID();
  wkBook := exclplctn1.Workbooks.Add(EmptyParam, LCID);
  exclwrkbk1.ConnectTo(wkBook);
  exclwrksht1.ConnectTo(exclwrkbk1.Worksheets.Item[1] as _Worksheet);
  .........//设置exclwrksht1的内容或格式
  //保存文件并断开
  wkBook.Close(True, fileName, EmptyParam, LCID);
  exclwrksht1.Disconnect;
  exclwrkbk1.Disconnect;
  exclplctn1.Quit;
  exclplctn1.Disconnect;