안녕하세요. 멀더입니다.
오랜만에 글을 쓰는군요.
아래의 함수는 주어진 파일이름의 Excel파일을 읽은후 파일안에 있는 Sheet 이름을 모두
가져오는 함수입니다.
참고하시길 바랍니다.

/*
* Param aFileName  -> FileName
* Param slNames -> Return Buffer List
*/
void __fastcall TForm1::GetExamExcelSheetName(AnsiString aFileName, TStringList* slNames)
{
    WideString Filename;

    Filename = aFileName;

    ExcelApplication1->Connect();
    ExcelWorkbook1->ConnectTo(
       ExcelApplication1->Workbooks->Open(Filename) );

    int sheetCount = ExcelWorkbook1->Worksheets->get_Count();

    for(int i=1; i<=sheetCount; i++) {
        ExcelWorksheet1->ConnectTo(
               ExcelWorkbook1->Worksheets->get_Item((TVariant) i) );

        WideString vSheetName = ExcelWorksheet1->get_Name();
        AnsiString strSheetName = vSheetName;
        slNames->Add (strSheetName);

        ExcelWorksheet1->Disconnect();
    }
    ExcelWorkbook1->Disconnect();
    ExcelApplication1->Disconnect();

}
//---------------------------------------------------------------------------




BadWold 님이 쓰신 글 :
: TExcelApplication을 사용해서 엑셀파일을 열려고 하는데요, 질문란을 검색해봐도
:
: ActiveSheet만 여는 방법밖에 없어서 질문을 올려봅니다. 보통 엑셀파일을 보면 Sheet1,Sheet2,Sheet3가
:
: 있는데, 이것을 선택하여 열려면 어떻게 해야 되는지 아시는분 도움좀 주십시요.. 부탁드려요^^
:
:
: this->ExcelApp->Connect();
: this->ExcelApp->Set_Visible(0,FALSE);
: this->ExcelApp->Set_DisplayAlerts(TDefLCID(),FALSE);
: this->ExcelWorkBook->ConnectTo(ExcelApp->Workbooks->Open(ExFileName.operator wchar_t *()));
: this->ExcelWorkSheet->ConnectTo(ExcelWorkBook->ActiveSheet);