怎么得到Excel文件的所有sheet页名称？

Question

已经用ADO连上指定Excel文件，想要获得所有sheet名称，填到一个combo里
怎么办？

Answer 1

m_strConnection = "Driver={Microsoft Excel Driver (*.xls)};Dbq=";
m_strConnection+=FileDlg.GetPathName();
m_pRs=m_pConn->OpenSchema(adSchemaTables);
i=1;
while(VARIANT_FALSE==m_pRs->IsEOF)
{
strFieldValue=(char*)_bstr_t(m_pRs->GetCollect("TABLE_TYPE"));
if(strFieldValue=="TABLE")
{
if(m_pRs->GetCollect("TABLE_NAME").vt!=VT_NULL)
strFieldValue=(char*)_bstr_t(m_pRs->GetCollect("TABLE_NAME"));
else
strFieldValue="";

Answer 2

搞定，谢谢hahu，不过少了句m_pRs->MoveNext，害我傻等了好一会儿，:P