Добавление объекта в Excel

try {
        App = CreateOleObject("Excel.Application");
        } catch (...) {
            MessageBoxA(NULL, "Не могу запустить сервер Microsoft Excel. Продолжение невозможно.", "Ошибка", MB_ICONERROR);
            return;
        }
        Books = App.OlePropertyGet("Workbooks");
        App.OlePropertySet("Visible", true); 
        App.OlePropertySet("SheetsInNewWorkbook", 1); 
        Books.OleProcedure("Add");
        Book = Books.OlePropertyGet("Item", 1);
        Sheets = Book.OlePropertyGet("Worksheets");
        Sheet = Sheets.OlePropertyGet("Item", 1);
        Sheet.OleProcedure("Activate");
        Cells = Sheet.OlePropertyGet("Cells");
 
        Function OleObjAdd("Add");
        Variant obj = Sheet.OlePropertyGet("OLEObjects");
        OleObjAdd.ClearArgs();
        obj.Exec(OleObjAdd << NamedParm("Filename", "D:\\test.jpeg") << NamedParm("Link", false) << NamedParm("DisplayAsIcon", false));
 
        ShowMessage("Done.");