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;