关于EXCEL的问题!

[sunnyqcy]

请问如何可以读出一个EXCEL工作簿中包含的SHEET的名称?

[daydayup234]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
WideString theXls;
theXls=ExtractFilePath(Application->ExeName) +"myExcel.xls";
if(!FileExists(theXls)){ShowMessage("µ±Ç°Ä¿Â¼ÏÂtheXls.xls²»´æÔÚÎļþ");return;}
TCOM_Application iExcelApp; //#include <Excel_2k.h>
try{iExcelApp=CoExcelApplication::Create();}
catch(...) {ShowMessage("Æô¶¯ Excel ³ö´í, ´ó¸ÅÊÇûװExcel");return;}
iExcelApp->set_Visible(0,true);
iExcelApp->get_Workbooks()->Open(theXls.c_bstr(),TNoParam(),TVariant(true),TNoParam(),TNoParam(),
TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam(),TNoParam(),0);
_WorksheetPtr isheetCOMPtr;
isheetCOMPtr=iExcelApp->get_ActiveWorkbook()->get_ActiveSheet();
ShowMessage(isheetCOMPtr->get_Name());
isheetCOMPtr->Release();
iExcelApp->Quit();
}

[hk_c]

mark 学习

[do2008]

学习~~~