var
     ExcelApp, ExcelSheet, ExcelFile : Variant;
     iRow, iCol, iXLRows, iXLCols : Integer;
     ExcelValue : Variant;
begin
     SpeedButton_Save.Enabled := False;
     prc_DisMsg( Panel_Msg, clBlack, 'Excel Data Loading...' ) ;

     try
          ExcelApp := CreateOLEObject( 'Excel.Application' );
     except
          MessageDlg( 'Excel 이 설치되지 않았습니다!', mtInformation, [mbOk], 0 );
          Exit;
     end;

     try
          ExcelApp.Visible       := False;
          ExcelApp.DisplayAlerts := False;

          OpenDialog1.InitialDir := ExtractFilePath( Application.ExeName );
          if OpenDialog1.Execute then
          begin
               ExcelFile  := ExcelApp.WorkBooks.Open( OpenDialog1.FileName );
               ExcelFile  := ExcelApp.WorkBooks.Item[1];
               ExcelSheet := ExcelFile.Worksheets.Item[1];

               iXLCols := ExcelSheet.UsedRange.Columns.Count;
               iXLRows := ExcelSheet.UsedRange.Rows.Count;

               ProgressBar1.Max := iXLCols * iXLRows ;
               ProgressBar1.Position := 0 ;

               with dxMemData_Main do
               begin
                    Close;
                    Open;

                    for iRow := 2 to iXLRows do
                    begin
                         Append;
                         for iCol := 1 to iXLCols  do
                         begin
                             dxMemData_Main.Fields[iCol].AsString := EXcelSheet.Cells[iRow, iCol];
                             ProgressBar1.Position := ProgressBar1.Position + 1;
                        end;
                    end;
               end;

               ProgressBar1.Position := 0 ;
               ExcelApp.WorkBooks.Close;
               ExcelApp.Quit;
               Unassigned;
          end;

          prc_DisMsg( Panel_Msg, clBlack, 'Excel Loading Complete!' ) ;
          SpeedButton_Save.Enabled := True;
     except
          on err:exception do
          begin

               ProgressBar1.Position := 0 ;
               ExcelApp.WorkBooks.Close;
               ExcelApp.Quit;
               ExcelApp := Unassigned;
               MessageDlg( '작업이 취소되었습니다. Data확인요망-'+err.message, mtInformation, [mbOk], 0 );
          end;
     end;