怎么提取Excel工作表名？

[thncn]

我现在想用ADOQuery控件查询Excel的数据，知道文件路径与名称后，可以设置ADOConnection打开Excel，但是查询时要用到工作表名，不知道怎么获取？有时可能有多个工作表，那如何获取第一个工作表的表名？

[Zhaolk]

// 创建 Excel 对象
try
{
ExcelFile = Variant::CreateObject("Excel.Application");
Create_Excel = true;
}
catch(...)
{
Application->MessageBox("创建【Excel】对象错误！","错 误",MB_OK + MB_ICONWARNING);
return;
}

// 新建空白文件
ExcelFile.PG("WorkBooks").PR("Open",WideString(LabeledEdit1->Text));

// 获取当前工作簿对象
WorkBook = ExcelFile.PG("ActiveWorkBook");

// 取得工作表总数
Sheet_Count = WorkBook.PG("Sheets").PG("Count");

for(int i = 1; i <= Sheet_Count; i++)
{
Sheet = WorkBook.PG("Sheets",i);

TreeView1->Items->Add(TreeView1->Selected,Sheet.PG("Name"));
}
... ...

// 获取当前选中的工作表
Sheet = WorkBook.PG("Sheets",TreeView1->Selected->Index + 1);

// 取总行数及总列数
Rows = Sheet.PG("UsedRange").PG("Rows").PG("Count");

StringGrid2->RowCount = Rows;

// 读取数据
for(int i = 0; i < Rows; i++)
{
StringGrid2->Cells[0][i] = AnsiString(i + 1); // 序号

for(int j = 1; j < 4; j++)
StringGrid2->Cells[j][i] = Sheet.PG("Cells",i + 1,j).PG("Value");
}