Открытие листа excel через кнопку

    Variant app = CreateOleObject("Excel.Application");
    Variant wbs = app.OlePropertyGet("Workbooks");
    Variant wb = wbs.OleFunction("Open", "C:\\test.xls");
    Variant wss = wb.OlePropertyGet("Worksheets");
    Variant ws = wss.OlePropertyGet("Item", 1);
    Variant cell = ws.OlePropertyGet("Cells", 1, 1);
    cell.OlePropertySet("Value", 456);
    wb.OleProcedure("Save");
    app.OleProcedure("Quit");

#include <tchar.h>
 
#import "C:\Program Files\Common Files\Microsoft Shared\OFFICE14\mso.dll" rename("RGB", "MSRGB"), rename("DocumentProperties", "MSDocumentProperties")
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
#import "C:\Program Files\Microsoft Office\OFFICE14\excel.exe" exclude("IFont", "IPicture"), rename("RGB", "ignorethis"), rename("DialogBox", "ignorethis"), rename("ReplaceText", "EReplaceText"), rename("CopyFile","ECopyFile")
 
int _tmain(int argc, _TCHAR* argv[])
{
    CoInitialize(0);
 
    Excel::_ApplicationPtr app;
    Excel::_WorkbookPtr wb;
    Excel::_WorksheetPtr ws;
 
    app.CreateInstance("Excel.Application");
    wb = app->Workbooks->Open("c:\\test.xls");
    ws = wb->Worksheets->Item[1];
 
    app->PutDisplayAlerts(0, 0);
    ws->Delete();
 
    wb->Save();
    app->Quit();
 
    return 0;
}