procedure TFormTerm.Btn_viewClick(Sender: TObject);
var
    msppt : olevariant;
    Fname,F_Path : String;
begin

   try
      ExcelApplication1.Connect;
   except
      messagedlg('엑셀 프로그램이 존재하는지 점검하세요.', mtWarning,[mbYes], 0);
      abort;
      exit;
   end;
   if OpenDialog1.Execute then
   begin
      Fname  := ExtractFileName(OpenDialog1.FileName);   // 선택한 파일에서 파일명만 가져온다.
      F_Path := ExtractFilePath(OpenDialog1.FileName);
      (*
      if not DirectoryExists(LocalDir) then  CreateDir(LocalDir); // 임시 폴더가 존재하지 않으면 생성한다.
      // 선택한 파일을 임시폴더 밑에 복사한다.
      CopyFile(Pchar(OpenDialog1.FileName), Pchar(LocalDir+''+fn), False);
*)
      Edt_Fname.Text := Fname;
   end;
{
    msppt := CreateOleObject('Excel.Application') ;  GetProc
    msppt.visible := true ;
    msppt.Documents.Open(Fname) ;
//    msppt.ActiveDocument.SaveAs(F_Path,ppSaveAsHTML,False);
    msppt.Quit;
}
    msppt := CreateOleObject('Excel.Application') ;
    msppt.visible := true ;
    msppt.Documents.Open(F_Path) ;
    msppt.ActiveDocument.SaveAs(F_Path,Fname,False);
    msppt.Quit;
end;