Excelの書式設定

実行環境にエクセルは必須です。
使用コンポーネント
TExcelApplication TExcelWorksheet

var
　　FName: Strings;
　　Col,Row,:Integer;
begin
　　//セル指定用の変数（Col=２、Row＝１でエクセルのB1です）
　　Col := 1;
　　Row := 1;

　　//エクセルのパスつきファイル名を格納
　　FName := 'c:\test.xls';
　　//エクセルへ接続
　　ExcelApplication1.Connect;
　　ExcelApplication1.Workbooks.Open(FName,EmptyParam,True,EmptyParam,EmptyParam,EmptyParam,
　　　　EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
　　ExcelWorksheet1.ConnectTo(ExcelApplication1.ActiveWorkbook.ActiveSheet as _WorkSheet);
　　ｔｒｙ
　　　　//フォントサイズ（シート全体）
　　　　ExcelWorksheet1.Cells.Font.Size := '11';
　　　　//フォントサイズ（指定セル）
　　　　ExcelWorksheet1.Cells.Item[Row,Col].Font.Size := 18;
　　　　//フォントの太字
　　　　ExcelWorksheet1.Cells.Item[Row,Col].Font.Bold := True;

　　　　//行の高さ（全行）
　　　　ExcelWorksheet1.Cells.RowHeight := '13.5';
　　　　//行の高さ（指定行）
　　　　ExcelWorksheet1.Cells.Item[Row,Col].RowHeight := '21';
　　　　//列の幅（列全体）
　　　　ExcelWorksheet1.Cells.ColumnWidth := '7';
　　　　//列の幅（指定列）
　　　　ExcelWorksheet1.Cells.Item[Row,Col].ColumnWidth := '7';

　　　　//セルの書式（表示形式　分類）
　　　　ExcelWorksheet1.Cells.Item[Row,Col].NumberFormatLocal := '@';　//文字列
　　　　ExcelWorksheet1.Cells.Item[Row,Col].NumberFormatLocal := 'yyyy/mm/dd';　//日付型「2009/08/01」

　　　　//セルの結合
　　　　ExcelWorksheet1.Range['A1','B1'].Merge(True);　//A1とB1を結合

　　　　//罫線を引く（A1とB1のまわりに外枠、内側の線を引く）
　　　　ExcelWorksheet1.Range['A1','B1'].Borders.LineStyle := xlContinuous;


　　　　//保存しないでエクセルを終了する
　　　　ExcelApplication1.ActiveWorkbook.Close(False,ExtractFileName(FName), EmptyParam, 0);
　　finally
　　　　ExcelWorksheet1.Disconnect;
　　　　ExcelApplication1.Disconnect;
　　end;
end;