我对excel的servers控件也不熟悉，因为没用过，不过可以帮您试试看。

void __fastcall TFormMain::BitBtn1Click(TObject *Sender)
{
    try
    {
        try
        {
            ExcelApp->Disconnect();
        }
        catch ( ... )
        {
        }

        try
        {
            // 连接Excel
            ExcelApp->Connect();
        }
        catch (...)
        {
            // 没有安装Excel
            Application->MessageBox( "可能没有安装Excel！", "错误", MB_ICONINFORMATION );
            return;
        }

        // 初始化文档
        if ( false == InitDict() )
        {
            ExcelApp->Disconnect();
            return;
        }

        // 保存
        if ( false == SaveDict() )
        {
            ExcelApp->Disconnect();
            return;
        }
    }
    catch(...)
    {
    }    
}
//---------------------------------------------------------------------------

bool TFormMain::InitDict(void)
{
    // 关闭显示
    ExcelApp->Visible[ 0 ] = false;

    // 建立新文档
    ExcelBook->ConnectTo( ExcelApp->Workbooks->Add() );

    return true;
}
//---------------------------------------------------------------------------

bool TFormMain::SaveDict(void)
{
    AnsiString sFileName = "a.xls";

    ExcelBook->SaveAs( TVariantInParam( sFileName ), TNoParam(), TNoParam(), TNoParam(), TNoParam(), TNoParam(), xlShared, TNoParam(), TNoParam(), TNoParam(), TNoParam(), 0 );

    return true;
}
//---------------------------------------------------------------------------

这儿仅仅包含创建新文件及保存的方法，你需要什么样的功能呢？