急急急!!!!!!!excel中无法添加新的工作表

[supercctv]

使用如下代码,运行通过,但是excel文件中就是不会添加新的工作表,为啥????
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString ExcelFileName="test.xls";
try
{
Ex = Variant::CreateObject("Excel.Application");
}
catch(...)
{
Application->MessageBox("无法启动Excel","错误",MB_ICONSTOP|MB_OK);
return;
}


Ex.OlePropertySet("Visible",true);
Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",ExcelFileName.c_str());
Wb=Ex.OlePropertyGet("ActiveWorkBook");
Wb.OlePropertyGet("worksheets").OleFunction("Add");
Wb.OleFunction("Save");
Wb.OleProcedure("Close");
Ex.OleFunction("Quit");
}
原来只有一个工作表kecheng