.
이 함수를 사용하기 위해서는 ExcelApp : TExcelApplication 과
ExcelWBook : TExcelWorkBook 을 적당한 곳에 올려 놓아야 합니다.

procedure OpenExcelWorkbook( psFileName : String );
var
  liLCID : Integer;
  loWorkBook : ExcelWorkbook;
begin
  liLCID := GetUserDefaultLCID;

  with ExcelApp do
  begin
     loWorkBook := Workbooks.Open( psFileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                   EmptyParam, EmptyParam, EmptyParam, liLCID );
     ExcelWBook.ConnectTo( loWorkBook );
     ScreenUpdating[ liLCID ] := FALSE;
  end;
end;

.