엑셀파일 내용 읽어오기

void __fastcall GetExcel(void)
{
    Variant     XlApp;
    Variant     XlBooks;
    Variant     XlBook;
    Variant     XlSheets;
    Variant     XlSheet;
    Variant     VCell;
    AnsiString  CelValue;
    int         ColCount;
    int         RowCount;
    int         Row, Col;
    AnsiString  Data[3];
    char        StopFlag = FALSE;

  
    try {
        XlApp       = Variant::CreateObject("Excel.Application");
        XlBooks     = XlApp.OlePropertyGet("Workbooks");
        XlBooks.OleProcedure("Open", WideString(m_ExcelFile));
        XlBook      = XlBooks   .OlePropertyGet("Item", 1);
        XlSheets    = XlBook    .OlePropertyGet("Worksheets");
        XlSheet     = XlSheets  .OlePropertyGet("Item", 1);
        ColCount    = XlSheet   .OlePropertyGet("UsedRange").OlePropertyGet("Columns"   ).OlePropertyGet("Count");
        RowCount    = XlSheet   .OlePropertyGet("UsedRange").OlePropertyGet("Rows"      ).OlePropertyGet("Count");
        ProgressBar->MaxValue = RowCount;

        for(Row = 2; Row <= RowCount; Row ++)   {
            memset(&Data, 0, sizeof(Data));

            for(Col = 1; Col <= ColCount; Col ++)   {
                VCell       = XlSheet   .OlePropertyGet("Cells", Row, Col);
                CelValue    = VCell     .OlePropertyGet("Value");

                Data[Col - 1] = CelValue;
            }

 

           // 데이터 처리
            if(!DataToDB(Data, Row))    StopFlag = TRUE;

            if(StopFlag)    break;
        }

   }   catch(Exception &e) {
            MessageBox(Handle,  "현재 엑셀이 설치 되어 있지 않거나 작업 중 오류가 발생하였습니다.\
                                \n\n엑셀을 설치하시거나 재 설치 하여 주십시요.", MSG_TITLE, MB_ICONWARNING);
   }

    XlBook  .OleProcedure("Close");
    XlApp   .OleProcedure("Quit");
    XlApp       = Unassigned;
    XlBooks     = Unassigned;
    XlBook      = Unassigned;
    XlSheets    = Unassigned;
    XlSheet     = Unassigned;

    if(StopFlag)    MessageBox(Handle, "작업이 취소 되었습니다.", MSG_TITLE, MB_ICONWARNING);
    else            MessageBox(Handle, "작업이 완료 되었습니다.", MSG_TITLE, MB_ICONINFORMATION);

}