|
정말 감사합니다.^^
많은 도움 되었습니다!!.
멀더 님이 쓰신 글 :
: 안녕하세요. 멀더입니다.
: 오랜만에 글을 쓰는군요.
: 아래의 함수는 주어진 파일이름의 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);
|